home *** CD-ROM | disk | FTP | other *** search
/ Scene Storm / Scene Storm - Volume 1.iso / coding / asm / utils / iffmasterpro / asm1_iffmasterpro.s < prev    next >
Text File  |  1980-01-06  |  123KB  |  7,222 lines
  1. ;
  2. ; IFFMaster Pro v0.99n - Release 2
  3. ;
  4. ; The Original Release 1 had corrupted source, this version is now 100%
  5. ; (This version now assembles correctly with ASM-One v1.25)
  6. ;
  7. ; ©1994 REbEL
  8. ;
  9. ; This program and its source may be freely distributed but the copyright
  10. ; remains at all times with myself. The code may not be altered in any
  11. ; manner, and no person may claim responsibility for writing this program.
  12. ; This source is provided purely as an insight into IFF ILBM handling and
  13. ; system coding in assembler.
  14. ;
  15. ; An IFF to RAW converter which is based upon IFFMASTER but with the
  16. ; inclusion of AGA compatibility.
  17. ;
  18. ; Requires my system.gs file (included in this archive) and system
  19. ; includes revision 3.1 (v40).
  20. ;
  21. ;
  22. ; OPTIMAL TAB SIZE = 12
  23. ;    opt    o+,w-
  24.  
  25.     incdir    coding:os3.1/include/
  26.     include    gst:os3_gst.i
  27.     include    intuition/icclass.i
  28.     include    libraries/gadtools.i
  29.     
  30.     easystart            * automatic WB startup code macro..
  31.     
  32. ;file read macro
  33. ;call with fileread filehandle,buffer,length
  34.  
  35. fileread    MACRO
  36.     movem.l    d1-d7/a0-a5,-(sp)
  37.     move.l    \1,d1
  38.     move.l    \2,d2
  39.     move.l    \3,d3
  40.     jsr    _LVORead(a6)
  41.     movem.l    (sp)+,d1-d7/a0-a5
  42.     cmp.l    \3,d0
  43.     bne    readerr
  44.     ENDM
  45.  
  46. ;file write macro
  47. ;call with filewrite filehandle,buffer,length
  48. filewrite    MACRO
  49.     movem.l    d1-d6/a0-a5,-(sp)
  50.     move.l    \1,d1
  51.     move.l    \2,d2
  52.     move.l    \3,d3
  53.     move.l    d3,d7
  54.     jsr    _LVOWrite(a6)
  55.     movem.l    (sp)+,d1-d6/a0-a5
  56.     cmp.l    d7,d0
  57.     bne    writeerr
  58.     ENDM
  59.  
  60. ;file skip macro
  61. ;call with fileskip handle,skip_amount
  62. ;note also that current seek position (after operation) is returned in D0
  63.  
  64. fileskip    MACRO
  65.     move.l    \1,d1
  66.     move.l    \2,d2
  67.     move.l    \2,d7
  68.     move.l    #OFFSET_CURRENT,d3
  69.     jsr    _LVOSeek(a6)
  70.     add.l    d7,d0
  71.     ENDM
  72.  
  73. ;file move macro
  74. ;call with filemove handle,offset
  75.  
  76. filemove    MACRO
  77.     move.l    dosbase,a6
  78.     move.l    \1,d1
  79.     move.l    \2,d2
  80.     move.l    #-1,d3
  81.     jsr    _LVOSeek(a6)
  82.     ENDM
  83.  
  84. ;    opt    o+,w-
  85.  
  86.     move.l    4.w,a6
  87.     lea    dosname,a1
  88.     jsr    _LVOOldOpenLibrary(a6)
  89.     move.l    d0,dosbase
  90.     beq.w    nodos
  91.     
  92.     move.l    dosbase,a6
  93.     jsr    _LVOOutput(a6)
  94.     move.l    d0,stdout
  95.     
  96.     move.l    4.w,a6
  97.     move.w    LIB_VERSION(a6),d0
  98.     cmp.w    #36,d0
  99.     blt.w    noks2
  100.     
  101.     move.l    4.w,a6
  102.     lea    intuiname,a1
  103.     move.l    #36,d0
  104.     jsr    _LVOOpenLibrary(a6)
  105.     move.l    d0,intuibase
  106.     beq.w    nointui
  107.     
  108.     move.l    4.w,a6
  109.     lea    gfxname,a1
  110.     move.l    #39,d0
  111.     jsr    _LVOOpenLibrary(a6)
  112.     move.l    d0,gfx39base
  113.  
  114.     move.l    4.w,a6
  115.     lea    gfxname,a1
  116.     move.l    #36,d0
  117.     jsr    _LVOOpenLibrary(a6)
  118.     move.l    d0,gfxbase
  119.     beq.w    nogfx
  120.     
  121.     lea    gadname,a1
  122.     move.l    #36,d0
  123.     jsr    _LVOOpenLibrary(a6)
  124.     move.l    d0,gadbase
  125.     beq.w    nogadt
  126.     
  127.     lea    dtname,a1
  128.     move.l    #36,d0
  129.     jsr    _LVOOpenLibrary(a6)
  130.     move.l    d0,dtbase
  131.     
  132.     move.l    4.w,a6
  133.     lea    reqtname,a1
  134.     moveq    #0,d0
  135.     jsr    _LVOOpenLibrary(a6)
  136.     move.l    d0,reqtbase
  137.     beq.w    noreqt
  138.     
  139.     move.w    #0,a0
  140.     moveq    #0,d0
  141.     move.l    reqtbase,a6
  142.     jsr    _LVOrtAllocRequestA(a6)
  143.     move.l    d0,req1
  144.     beq.w    noreqa1
  145.     
  146.     move.w    #0,a0
  147.     moveq    #0,d0
  148.     move.l    reqtbase,a6
  149.     jsr    _LVOrtAllocRequestA(a6)
  150.     move.l    d0,req2
  151.     beq.w    noreqa2
  152.     
  153.     move.l    #prefsname,d1
  154.     move.l    #MODE_OLDFILE,d2
  155.     move.l    dosbase,a6
  156.     jsr    _LVOOpen(a6)
  157.     tst.l    d0
  158.     beq.b    noprefs
  159.     
  160.     move.l    d0,d1
  161.     move.l    d0,d6
  162.     move.l    #oldprefs,d2
  163.     move.l    #endnewprefs-newprefs,d3
  164.     jsr    _LVORead(a6)
  165.     move.l    d0,d5
  166.     move.l    d6,d1
  167.     jsr    _LVOClose(a6)
  168.     
  169.     cmp.l    #endnewprefs-newprefs,d5
  170.     bne.b    noprefs
  171.     
  172.     lea    oldprefs,a0
  173.     lea    newprefs,a1
  174.     move.w    #endnewprefs-newprefs-1,d0
  175. copyprefs    move.b    (a0)+,(a1)+
  176.     dbf    d0,copyprefs
  177.     
  178. noprefs    move.l    reqtbase,a6
  179.     move.l    req1,a1
  180.     lea    loadtags,a0
  181.     jsr    _LVOrtChangeReqAttrA(a6)
  182.     
  183.     move.l    req2,a1
  184.     lea    savetags,a0
  185.     jsr    _LVOrtChangeReqAttrA(a6)
  186.     
  187.     move.l    #80*256*2,d0
  188.     move.l    #MEMF_CHIP|MEMF_CLEAR,d1
  189.     move.l    4.w,a6
  190.     jsr    _LVOAllocMem(a6)
  191.     tst.l    d0
  192.     beq.w    noram
  193.     
  194.     move.l    d0,pladdr
  195.     move.l    #80*256*2,plsize
  196.     move.w    #80,bytewid1
  197.     move.w    #640,pagewid
  198.     move.w    #256,pageht
  199.     move.w    #640,iffwidth
  200.     move.w    #256,iffheight
  201.     move.w    #2,iffdepth
  202.     move.b    #2,lightest
  203.     move.b    #1,darkest
  204.  
  205.     move.w    #2,d2
  206.     move.w    #80*256,d1
  207.     move.l    pladdr,d0
  208.     lea    bplptr,a1
  209. modi1    move.l    d0,(a1)+
  210.     add.l    d1,d0
  211.     sub.w    #1,d2
  212.     bne.b    modi1
  213.  
  214.     lea    newscreen,a0
  215.     move.l    intuibase,a6
  216.     jsr    _LVOOpenScreen(a6)
  217.     tst.l    d0
  218.     beq.w    noram
  219.     move.l    d0,scrpt1
  220.     move.l    d0,scrpt2
  221.     move.l    d0,scrpt3
  222.     move.l    d0,scrpt4
  223.     ;move.l    d0,scrpt5
  224.     
  225.     move.w    iffdepth,cdepth
  226.     move.w    cdepth,d0
  227.     move.w    #1,d1
  228.     lea    depthASCII,a0
  229.     bsr.w    numtohexasc
  230.     
  231.     move.l    #1,d0
  232.     move.w    iffdepth,d1
  233.     lsl.l    d1,d0
  234.     move.w    d0,d7
  235.     sub.w    #1,d7
  236.     lea    palstore1,a0
  237.     lea    palstore2,a1
  238.  
  239. pal    moveq    #0,d2
  240.     move.b    (a0)+,d1
  241.     and.b    #$F0,d1
  242.     lsr.b    #4,d1
  243.     or.b    d1,d2
  244.     lsl.w    #4,d2
  245.     move.b    (a0)+,d1
  246.     and.b    #$F0,d1
  247.     lsr.b    #4,d1
  248.     or.b    d1,d2
  249.     lsl.w    #4,d2
  250.     move.b    (a0)+,d1
  251.     and.b    #$F0,d1
  252.     lsr.b    #4,d1
  253.     or.b    d1,d2
  254.     move.w    d2,(a1)+
  255.     dbf    d7,pal
  256.     
  257.     lea    palstore2,a1
  258.     move.l    scrpt1,a0
  259.     lea    sc_ViewPort(a0),a0
  260.     move.l    gfxbase,a6
  261.     jsr    _LVOLoadRGB4(a6)
  262.     
  263.     lea    newwindow,a0
  264.     move.l    intuibase,a6
  265.     jsr    _LVOOpenWindow(a6)
  266.     move.l    d0,winpt1
  267.     move.l    d0,winpt2
  268.     move.l    d0,winpt3
  269.     move.l    d0,winpt4
  270.     beq.w    noram
  271.     
  272.     move.l    winpt1,a0
  273.     lea    menu1,a1
  274.     move.l    intuibase,a6
  275.     jsr    _LVOSetMenuStrip(a6)
  276.     
  277.     move.l    winpt1,a0
  278.     lea    mousept,a1
  279.     move.w    #15,d0
  280.     move.w    #15,d1
  281.     move.w    #-7,d2
  282.     move.w    #-7,d3
  283.     jsr    _LVOSetPointer(a6)
  284.     
  285.     move.l    winpt1,a1
  286.     move.l    wd_RPort(a1),a1
  287.     move.b    #RP_COMPLEMENT,d0
  288.     move.l    gfxbase,a6
  289.     jsr    _LVOSetDrMd(a6)
  290.     
  291.     lea    bitmap,a0
  292.     moveq    #0,d0
  293.     moveq    #0,d1
  294.     move.l    winpt1,a1
  295.     move.l    wd_RPort(a1),a1
  296.     clr.w    d2
  297.     clr.w    d3
  298.     
  299.     move.w    pagewid,d4
  300.     cmp.w    iffwidth,d4
  301.     blt.b    thinpic
  302.     move.w    iffwidth,d4
  303.     
  304. thinpic    move.w    pageht,d5
  305.     cmp.w    iffheight,d5
  306.     blt.b    shortpic
  307.     move.w    iffheight,d5
  308.     add.w    #$16,d5
  309.     
  310. shortpic    sub.w    #$16,d5
  311.     move.b    #$C0,d6
  312.     move.l    gfxbase,a6
  313.     jsr    _LVOBltBitMapRastPort(a6)
  314.     
  315.     clr.w    scrollx
  316.     clr.w    scrolly
  317. portwait    move.l    4.w,a6
  318.     move.l    winpt1,a0
  319.     move.l    wd_UserPort(a0),a0
  320.     jsr    _LVOWaitPort(a6)
  321.     
  322. nomessage1    move.l    winpt1,a0
  323.     move.l    wd_UserPort(a0),a0
  324.     move.l    4.w,a6
  325.     jsr    _LVOGetMsg(a6)
  326.     tst.l    d0
  327.     beq.b    portwait
  328.     
  329.     move.l    d0,message
  330.     move.l    d0,a1
  331.     jsr    _LVOReplyMsg(a6)
  332.     
  333.     move.l    message,a0
  334.     move.l    $14(a0),d0
  335.  
  336.     cmp.l    #MENUVERIFY,d0
  337.     beq.w    menuon
  338.  
  339.     cmp.l    #MENUPICK,d0
  340.     beq.w    menu
  341.     
  342.     cmp.l    #RAWKEY,d0
  343.     beq.w    rawkey
  344.     
  345.     cmp.l    #MOUSEMOVE,d0
  346.     beq.w    mousemove
  347.     
  348.     cmp.l    #MOUSEBUTTONS,d0
  349.     beq.b    mousebut
  350.      
  351.     bra.b    nomessage1
  352.  
  353. mousebut    not.b    lmbpress
  354.     beq.w    mouserel
  355.     tst.b    brushon
  356.     bne.w    brushset
  357.     tst.w    mousey
  358.     bge.b    mouseok
  359.     st    intopborder
  360.     bra.b    brushset
  361.  
  362. mouseok    sf    intopborder
  363.     tst.w    brtlx
  364.     bge.b    brushset
  365.     tst.w    brtly
  366.     bge.b    brushset
  367.     tst.w    brbrx
  368.     bge.b    brushset
  369.     tst.w    brbry
  370.     bge.b    brushset
  371.     move.w    mousex,brtlx
  372.     move.w    mousey,brtly
  373.     move.w    mousex,brbrx
  374.     move.w    mousey,brbry
  375.     move.w    scrollx,d0
  376.     move.w    scrolly,d1
  377.     add.w    d0,brtlx
  378.     add.w    d0,brbrx
  379.     add.w    d1,brtly
  380.     add.w    d1,brbry
  381.     bsr.w    updatecoords
  382.     bsr.w    drawbrushgrid
  383. brushset    bra.w    nomessage1
  384.  
  385. mouserel    tst.b    intopborder
  386.     bne.w    nomessage1
  387.     st    brushon
  388.     bra.w    nomessage1
  389.  
  390. mousemove    move.w    $20(a0),d6
  391.     move.w    $22(a0),d7
  392.     tst.w    mousex
  393.     bge.b    undrawcrosshair
  394.     tst.w    mousey
  395.     bge.b    undrawcrosshair
  396.     bra.b    noundraw
  397.  
  398. undrawcrosshair
  399.     bsr.w    drawcrosshair
  400.     move.w    #$FFFF,mousex
  401.     move.w    #$FFFF,mousey
  402. noundraw    tst.w    d7
  403.     blt.w    inborder
  404.     move.w    d7,d5
  405.     cmp.w    iffwidth,d6
  406.     bgt.w    inborder
  407.     cmp.w    iffheight,d5
  408.     bgt.w    inborder
  409.     move.w    d6,mousex
  410.     move.w    d7,mousey
  411.     tst.b    lmbpress
  412.     beq.b    nobrush
  413.     tst.b    intopborder
  414.     bne.b    nobrush
  415.     tst.b    brushon
  416.     bne.b    nobrush
  417.     bsr.w    drawbrushgrid
  418.  
  419. nobrush    lea    widASCII,a0
  420.     move.w    iffwidth,d0
  421.     bsr.w    numtoascii
  422.     lea    heightASCII,a0
  423.     move.w    iffheight,d0
  424.     bsr.w    numtoascii
  425.     lea    xASCII,a0
  426.     move.w    mousex,d0
  427.     add.w    scrollx,d0
  428.     bsr.w    numtoascii
  429.     lea    yASCII,a0
  430.     move.w    mousey,d0
  431.     add.w    scrolly,d0
  432.     bsr.w    numtoascii
  433.     
  434.     move.w    mousey,d1
  435.     add.w    scrolly,d1
  436.     mulu    bytewid1,d1
  437.  
  438.     move.b    #"A",addrmod-1
  439.     
  440.     cmp.b    #2,coordtype
  441.     bne.b    notilcoordtype
  442.     
  443.     move.b    #"I",addrmod-1
  444.     moveq    #0,d2
  445.     move.w    cdepth,d2
  446.     
  447.     move.l    d0,-(sp)
  448.     moveq    #0,d0
  449. mulu9    add.l    d2,d0
  450.     sub.l    #1,d1
  451.     bne.b    mulu9
  452.     move.l    d0,d1
  453.     move.l    (sp)+,d0
  454.     ;mulu.l    d2,d1    68000 cannot do this
  455.     
  456. notilcoordtype
  457.     moveq    #0,d0
  458.     move.w    mousex,d0
  459.     add.w    scrollx,d0
  460.     lsr.w    #3,d0
  461.     add.l    d0,d1
  462.     move.l    d1,d0
  463.     lea    addrmod,a0
  464.     bsr.w    numtoascii2
  465.     
  466.     bsr.w    writecoords
  467.     bsr.w    drawcrosshair
  468.     tst.b    lmbpress
  469.     beq.b    inborder
  470.     tst.b    brushon
  471.     bne.b    inborder
  472.     tst.b    intopborder
  473.     bne.b    inborder
  474.     move.w    mousex,brbrx
  475.     move.w    mousey,brbry
  476.     move.w    scrollx,d0
  477.     move.w    scrolly,d1
  478.     add.w    d0,brbrx
  479.     add.w    d1,brbry
  480.     bsr.b    drawbrushgrid
  481.     bsr.w    updatecoords
  482. inborder    bra.w    nomessage1
  483.  
  484. drawbrushgrid
  485.     move.w    brtlx,d0
  486.     sub.w    scrollx,d0
  487.     move.w    d0,brtlxoff
  488.     move.w    brbrx,d0
  489.     sub.w    scrollx,d0
  490.     move.w    d0,brbrxoff
  491.     move.w    brtly,d0
  492.     sub.w    scrolly,d0
  493.     move.w    d0,brtlyoff
  494.     move.w    brbry,d0
  495.     sub.w    scrolly,d0
  496.     move.w    d0,brbryoff
  497.     move.w    brtlxoff,d0
  498.     move.w    brtlyoff,d1
  499.     move.l    winpt1,a1
  500.     
  501.     move.l    wd_RPort(a1),a1
  502.     move.l    gfxbase,a6
  503.     jsr    _LVOMove(a6)
  504.     
  505.     move.w    brbrxoff,d0
  506.     move.w    brtlyoff,d1
  507.     move.l    winpt1,a1
  508.     move.l    wd_RPort(a1),a1
  509.     jsr    _LVODraw(a6)
  510.     
  511.     move.w    brbrxoff,d0
  512.     move.w    brbryoff,d1
  513.     move.l    winpt1,a1
  514.     move.l    wd_RPort(a1),a1
  515.     jsr    _LVODraw(a6)
  516.     
  517.     move.w    brtlxoff,d0
  518.     move.w    brbryoff,d1
  519.     move.l    winpt1,a1
  520.     move.l    wd_RPort(a1),a1
  521.     jsr    _LVODraw(a6)
  522.     
  523.     move.w    brtlxoff,d0
  524.     move.w    brtlyoff,d1
  525.     move.l    winpt1,a1
  526.     move.l    wd_RPort(a1),a1
  527.     jsr    _LVODraw(a6)
  528.     
  529.     move.w    brtlx,d6
  530.     sub.w    scrollx,d6
  531.     move.w    brbrx,d7
  532.     sub.w    scrollx,d7
  533.     
  534.     cmp.w    d6,d7
  535.     bge.b    noswap
  536.     exg    d6,d7
  537.     
  538. noswap    sub.w    #1,d6
  539. drawgrid    add.w    #$10,d6
  540.     cmp.w    d7,d6
  541.     bge.b    drawdone
  542.     move.w    d6,d0
  543.     move.w    brtlyoff,d1
  544.     move.l    winpt1,a1
  545.     move.l    wd_RPort(a1),a1
  546.     jsr    _LVOMove(a6)
  547.     
  548.     move.w    d6,d0
  549.     move.w    brbryoff,d1
  550.     move.l    winpt1,a1
  551.     move.l    wd_RPort(a1),a1
  552.     jsr    _LVODraw(a6)
  553.     bra.b    drawgrid
  554. drawdone    rts
  555.  
  556. drawcrosshair
  557.     move.l    gfxbase,a6
  558.     clr.w    d0
  559.     move.w    mousey,d1
  560.     move.l    winpt1,a1
  561.     move.l    wd_RPort(a1),a1
  562.     jsr    _LVOMove(a6)
  563.     
  564.     move.w    pagewid,d0
  565.     move.w    mousey,d1
  566.     move.l    winpt1,a1
  567.     move.l    wd_RPort(a1),a1
  568.     jsr    _LVODraw(a6)
  569.     
  570.     move.w    mousex,d0
  571.     clr.w    d1
  572.     move.l    winpt1,a1
  573.     move.l    wd_RPort(a1),a1
  574.     jsr    _LVOMove(a6)
  575.     
  576.     move.w    mousex,d0
  577.     move.w    pageht,d1
  578.     move.l    winpt1,a1
  579.     move.l    wd_RPort(a1),a1
  580.     jsr    _LVODraw(a6)
  581.     rts
  582.  
  583. updatecoords
  584.     tst.w    brtlx
  585.     bmi.b    clearbrushtxt
  586.     tst.w    brtly
  587.     bmi.b    clearbrushtxt
  588.     tst.w    brbrx
  589.     bmi.b    clearbrushtxt
  590.     tst.w    brbry
  591.     bmi.b    clearbrushtxt
  592.     bra.b    updatebrtxt
  593.  
  594. clearbrushtxt
  595.     move.b    #' ',brwidASCII
  596.     move.b    #' ',brwidASCII+1
  597.     move.b    #' ',brwidASCII+2
  598.     move.b    #' ',brwidASCII+3
  599.     move.b    #' ',brhtASCII
  600.     move.b    #' ',brhtASCII+1
  601.     move.b    #' ',brhtASCII+2
  602.     move.b    #' ',brhtASCII+3
  603.     bra.b    updatedone
  604.  
  605. updatebrtxt    move.w    brtlx,d0
  606.     sub.w    brbrx,d0
  607.     bpl.b    noswap1
  608.     neg.w    d0
  609. noswap1    add.w    #1,d0
  610.     lea    brwidASCII,a0
  611.     bsr.w    numtoascii
  612.     move.w    brtly,d0
  613.     sub.w    brbry,d0
  614.     bpl.b    noswap2
  615.     neg.w    d0
  616. noswap2    add.w    #1,d0
  617.     lea    brhtASCII,a0
  618.     bsr.w    numtoascii
  619. updatedone    bsr.w    writecoords
  620.     rts
  621.  
  622. rawkey    move.w    $18(a0),d0
  623.     lea    keytable,a0
  624. getroutine    move.w    (a0)+,d1
  625.     cmp.w    #$FFFF,d1
  626.     beq.b    cantfind
  627.     cmp.w    d0,d1
  628.     bne.b    notroutine
  629.     move.l    (a0),a1
  630.     movem.l    d0/a0,-(sp)
  631.     jsr    (a1)
  632.     movem.l    (sp)+,d0/a0
  633. notroutine    add.l    #4,a0
  634.     bra.b    getroutine
  635. cantfind    bra.w    nomessage1
  636.  
  637. altkey    not.b    altpressed
  638.     rts
  639.  
  640. ctrlkey    not.b    ctrlpressed
  641.     rts
  642.  
  643. scrollrt    tst.b    ctrlpressed
  644.     bne.w    farright
  645.     
  646.     tst.b    altpressed
  647.     bne.w    pageright
  648.     
  649.     move.w    iffwidth,d0
  650.     sub.w    pagewid,d0
  651.     sub.w    scrollx,d0
  652.     ble.b    noscroll2
  653.     move.w    #4,d1
  654.     cmp.w    #4,d0
  655.     bge.b    noscroll1
  656.     move.w    d0,d1
  657. noscroll1    add.w    d1,scrollx
  658.     bra.w    redraw
  659. noscroll2    rts
  660.  
  661. scrolllt    tst.b    ctrlpressed
  662.     bne.w    farleft
  663.     
  664.     tst.b    altpressed
  665.     bne.w    pageleft
  666.     
  667.     tst.w    scrollx
  668.     beq.b    noscroll4
  669.     move.w    #4,d1
  670.     cmp.w    #4,scrollx
  671.     bge.b    noscroll3
  672.     move.w    scrollx,d1
  673. noscroll3    sub.w    d1,scrollx
  674.     bra.w    redraw
  675. noscroll4    rts
  676.  
  677. scrolldn    tst.b    ctrlpressed
  678.     bne.w    verybottom
  679.     
  680.     tst.b    altpressed
  681.     bne.w    pagedown
  682.     
  683.     move.w    iffheight,d0
  684.     sub.w    pageht,d0
  685.     add.w    #$16,d0
  686.     sub.w    scrolly,d0
  687.     ble.b    noscroll6
  688.     move.w    #4,d1
  689.     cmp.w    #4,d0
  690.     bge.b    noscroll5
  691.     move.w    d0,d1
  692. noscroll5    add.w    d1,scrolly
  693.     bra.w    redraw
  694. noscroll6    rts
  695.  
  696. scrollup    tst.b    ctrlpressed
  697.     bne.b    verytop
  698.     
  699.     tst.b    altpressed
  700.     bne.w    pageup
  701.     
  702.     tst.w    scrolly
  703.     beq.b    noscroll8
  704.     move.w    #4,d1
  705.     cmp.w    #4,scrolly
  706.     bge.b    noscroll7
  707.     move.w    scrolly,d1
  708. noscroll7    sub.w    d1,scrolly
  709.     bra.w    redraw
  710. noscroll8    rts
  711.  
  712. farleft    tst.w    scrollx
  713.     beq.b    noscroll9
  714.     clr.w    scrollx
  715.     bra.w    redraw
  716. noscroll9    rts
  717.     
  718. verytop    tst.w    scrolly
  719.     beq.b    noscroll10
  720.     clr.w    scrolly
  721.     bra.w    redraw
  722. noscroll10    rts
  723.     
  724. farright    move.w    iffwidth,d0
  725.     sub.w    pagewid,d0
  726.     cmp.w    scrollx,d0
  727.     beq.b    noscroll11
  728.     move.w    d0,scrollx
  729.     bra.w    redraw
  730. noscroll11    rts
  731.  
  732. verybottom    move.w    iffheight,d0
  733.     sub.w    pageht,d0
  734.     add.w    #$16,d0
  735.     cmp.w    scrolly,d0
  736.     beq.b    noscroll12
  737.     move.w    d0,scrolly
  738.     bra.w    redraw
  739. noscroll12    rts
  740.  
  741. pageleft    tst.w    scrollx
  742.     beq.b    noscroll13
  743.     move.w    scrollx,d0
  744.     sub.w    pagewid,d0
  745.     bge.b    notle
  746.  
  747.     clr.w    d0
  748.  
  749. notle    move.w    d0,scrollx
  750.     bra.w    redraw
  751. noscroll13    rts
  752.  
  753.  
  754. pageright    move.w    iffwidth,d0
  755.     sub.w    pagewid,d0
  756.     cmp.w    scrollx,d0
  757.     beq.b    noscroll14
  758.     
  759.     move.w    scrollx,d0
  760.     add.w    pagewid,d0
  761.     move.w    d0,d1
  762.     add.w    pagewid,d1
  763.     cmp.w    iffwidth,d1
  764.     blt.b    notre
  765.     
  766.     move.w    iffwidth,d0
  767.     sub.w    pagewid,d0
  768.  
  769. notre    move.w    d0,scrollx
  770.     bra.b    redraw
  771. noscroll14    rts
  772.  
  773. pageup    tst.w    scrolly
  774.     beq.b    noscroll15
  775.     move.w    scrolly,d0
  776.     sub.w    pageht,d0
  777.     add.w    #$16,d0
  778.     bge.b    notte
  779.  
  780.     clr.w    d0
  781.  
  782. notte    move.w    d0,scrolly
  783.     bra.b    redraw
  784. noscroll15    rts
  785.  
  786. pagedown    move.w    iffheight,d0
  787.     sub.w    pageht,d0
  788.     add.w    #$16,d0
  789.     cmp.w    scrolly,d0
  790.     beq.b    noscroll16
  791.     
  792.     move.w    scrolly,d0
  793.     add.w    pageht,d0
  794.     sub.w    #$16,d0
  795.     move.w    d0,d1
  796.     add.w    pageht,d1
  797.     sub.w    #$16,d1
  798.     cmp.w    iffheight,d1
  799.     blt.b    notbe
  800.     
  801.     move.w    iffheight,d0
  802.     sub.w    pageht,d0
  803.     add.w    #$16,d0
  804.  
  805. notbe    move.w    d0,scrolly
  806.     bra.b    redraw
  807. noscroll16    rts
  808.  
  809.  
  810. redraw    tst.w    brtlx
  811.     bge.b    clearbr
  812.     tst.w    brtly
  813.     bge.b    clearbr
  814.     tst.w    brbrx
  815.     bge.b    clearbr
  816.     tst.w    brbry
  817.     bge.b    clearbr
  818.     bra.b    noclearbr
  819.  
  820. clearbr    bsr.w    drawbrushgrid
  821. noclearbr    bsr.w    drawcrosshair
  822.  
  823.     lea    bitmap,a0
  824.     moveq    #0,d0
  825.     move.w    scrollx,d0
  826.     moveq    #0,d1
  827.     move.w    scrolly,d1
  828.     move.l    winpt1,a1
  829.     move.l    wd_RPort(a1),a1
  830.     clr.w    d2
  831.     clr.w    d3
  832.     move.w    pagewid,d4
  833.     cmp.w    iffwidth,d4
  834.     blt.b    notwide
  835.     
  836.     move.w    iffwidth,d4
  837.     
  838. notwide    move.w    pageht,d5
  839.     cmp.w    iffheight,d5
  840.     blt.b    nottall
  841.     
  842.     move.w    iffheight,d5
  843.     add.w    #$16,d5
  844.     
  845. nottall    sub.w    #$16,d5
  846.     move.b    #$C0,d6
  847.     move.l    gfxbase,a6
  848.     jsr    _LVOBltBitMapRastPort(a6)
  849.     
  850.     tst.w    brtlx
  851.     bge.b    putbr
  852.     tst.w    brtly
  853.     bge.b    putbr
  854.     tst.w    brbrx
  855.     bge.b    putbr
  856.     tst.w    brbry
  857.     bge.b    putbr
  858.     bra.b    noputbr
  859.  
  860. putbr    tst.b    brushon
  861.     bne.b    brushlocked
  862.     move.w    mousex,brbrx
  863.     move.w    mousey,brbry
  864.     move.w    scrollx,d0
  865.     move.w    scrolly,d1
  866.     add.w    d0,brbrx
  867.     add.w    d1,brbry
  868.  
  869. brushlocked    bsr.w    drawbrushgrid
  870. noputbr    bsr.w    drawcrosshair
  871.  
  872.     lea    widASCII,a0
  873.     move.w    iffwidth,d0
  874.     bsr.w    numtoascii
  875.     lea    heightASCII,a0
  876.     move.w    iffheight,d0
  877.     bsr.w    numtoascii
  878.     lea    xASCII,a0
  879.     move.w    mousex,d0
  880.     add.w    scrollx,d0
  881.     bsr.w    numtoascii
  882.     lea    yASCII,a0
  883.     move.w    mousey,d0
  884.     add.w    scrolly,d0
  885.     bsr.w    numtoascii
  886.     bsr.w    writecoords
  887.     rts
  888.  
  889. menuon    lea    menupal,a1
  890.     move.l    scrpt1,a0
  891.     lea    sc_ViewPort(a0),a0
  892.     move.l    #4,d0
  893.     move.l    gfxbase,a6
  894.     jsr    _LVOLoadRGB4(a6)
  895.     bra.w    nomessage1
  896.     
  897. menu    bsr.w    fakebpl
  898.     move.l    message,a0
  899.     move.w    $18(a0),d0
  900.     move.w    d0,d1
  901.     and.w    #%0000000000000001,d1
  902.     move.w    d0,d2
  903.     and.w    #%0000000111100000,d2
  904.     lsr.w    #5,d2
  905.     and.w    #%1111111100000000,d0
  906.     lsr.w    #8,d0
  907.     lsr.w    #3,d0
  908.     
  909.     cmp.w    #0,d1
  910.     bne.b    menu2sel
  911.     tst.w    d2
  912.     beq.b    load
  913.     cmp.w    #1,d2
  914.     beq.w    savepic
  915.     cmp.w    #2,d2
  916.     beq.w    savebr
  917.     cmp.w    #3,d2
  918.     beq.w    savesprite
  919.     cmp.w    #5,d2
  920.     beq.w    screenmode
  921.     cmp.w    #6,d2
  922.     beq.w    prefs
  923.     cmp.w    #7,d2
  924.     beq.w    about
  925.     cmp.w    #9,d2
  926.     beq.w    close
  927.     bra.w    nomessage1
  928.  
  929. menu2sel    tst.w    d2
  930.     beq.w    brush
  931.     cmp.w    #1,d2
  932.     beq.w    palette
  933.     cmp.w    #3,d2
  934.     beq.w    savepal
  935.     cmp.w    #4,d2
  936.     beq.w    savebrmask
  937.     cmp.w    #5,d2
  938.     beq.w    savepicmask
  939.     bra.w    nomessage1
  940.  
  941. load    clr.b    filename
  942.     move.l    req1,a1
  943.     lea    filename,a2
  944.     lea    loadtxt,a3
  945.     lea    tags2,a0
  946.     move.l    reqtbase,a6
  947.     jsr    _LVOrtFileRequestA(a6)
  948.     tst.l    d0
  949.     beq.w    nomessage1
  950.     
  951.     move.l    req1,a1
  952.     move.l    rtfi_Dir(a1),d1
  953.     move.l    #SHARED_LOCK,d2
  954.     move.l    dosbase,a6
  955.     jsr    _LVOLock(a6)
  956.     move.l    d0,filelock
  957.     beq.w    readerr
  958.     
  959.     move.l    d0,d1
  960.     jsr    _LVOCurrentDir(a6)
  961.     move.l    d0,olddirlock
  962.     
  963.     move.l    #filename,d1
  964.     move.l    #MODE_OLDFILE,d2
  965.     move.l    dosbase,a6
  966.     jsr    _LVOOpen(a6)
  967.     tst.l    d0
  968.     beq.w    readerr
  969.     move.l    d0,handle1
  970.     
  971.     fileread    handle1,#store1,#4
  972.     cmp.l    #'FORM',store1
  973.     bne.w    notiff
  974.     
  975.     fileread    handle1,#store1,#4
  976.     sub.l    #4,store1
  977.     move.l    store1,iffend
  978.     
  979.     fileread    handle1,#store1,#4
  980.     cmp.l    #'ILBM',store1
  981.     bne.w    notiff
  982.     
  983. findbmhd    fileread    handle1,#store1,#4
  984.     cmp.l    #'BMHD',store1
  985.     beq.w    bmhdfound
  986.     
  987.     fileread    handle1,#store1,#4
  988.     fileskip    handle1,store1
  989.     move.l    d0,seekpos
  990.     
  991.     move.l    d0,d1
  992.     add.l    #1,d0
  993.     and.l    #$FFFFFFFE,d0
  994.     sub.l    d1,d0
  995.     beq.b    nopad
  996.     
  997.     fileskip    handle1,#1
  998.     
  999. nopad    move.l    seekpos,d0
  1000.     sub.l    #12,d0
  1001.     cmp.l    iffend,d0
  1002.     beq.w    notiff
  1003.     bra.w    findbmhd
  1004.  
  1005. bmhdfound    fileskip    handle1,#4
  1006.  
  1007.     fileread    handle1,#store1,#2
  1008.     move.w    store1,iffwidth
  1009.     
  1010.     fileread    handle1,#store1,#2
  1011.     move.w    store1,iffheight
  1012.     
  1013.     fileskip    handle1,#4
  1014.     moveq    #0,d0
  1015.     
  1016.     fileread    handle1,#store1,#1
  1017.     move.b    store1,d0
  1018.     move.w    d0,iffdepth
  1019.     
  1020.     fileread    handle1,#store1,#1
  1021.     move.b    store1,mask
  1022.     
  1023.     fileread    handle1,#store1,#1
  1024.     move.b    store1,comp
  1025.     move.l    handle1,d1
  1026.     
  1027.     fileskip    handle1,#1
  1028.     fileskip    handle1,#2
  1029.     
  1030.     fileread    handle1,#store1,#2
  1031.     move.w    store1,aspects
  1032.     
  1033.     fileread    handle1,#store1,#2
  1034.     move.w    store1,pagewid
  1035.     
  1036.     fileread    handle1,#store1,#2
  1037.     move.w    store1,pageht
  1038.     
  1039.     moveq    #0,d0
  1040.     move.w    iffwidth,d0
  1041.     add.w    #15,d0
  1042.     divu    #16,d0
  1043.     add.w    d0,d0
  1044.     move.w    d0,bytewid1
  1045.     
  1046.     moveq    #0,d0
  1047.     move.w    iffwidth,d0
  1048.     move.w    d0,width
  1049.     add.w    #15,d0
  1050.     divu    #16,d0
  1051.     add.w    d0,d0
  1052.     move.w    d0,bytewid2
  1053.     
  1054.     move.w    bytewid2,d0
  1055.     move.w    iffheight,d1
  1056.     move.w    d1,height
  1057.     mulu    d1,d0
  1058.     moveq    #0,d1
  1059.     move.w    iffdepth,d1
  1060.     
  1061.     move.l    d2,-(sp)
  1062.     moveq    #0,d2
  1063. mulu1    add.l    d0,d2
  1064.     sub.l    #1,d1
  1065.     bne.b    mulu1
  1066.     move.l    d2,d0
  1067.     move.l    (sp)+,d2
  1068.     ;mulu.l    d1,d0    68000 cannot do this
  1069.     
  1070.     move.l    plsize,oldplsize
  1071.     move.l    d0,plsize
  1072.     
  1073.     filemove    handle1,#12
  1074.  
  1075. findcamg    fileread    handle1,#store1,#4
  1076.     cmp.l    #'CAMG',store1
  1077.     beq.w    camgfound
  1078.     
  1079.     fileread    handle1,#store1,#4
  1080.     fileskip    handle1,store1
  1081.     move.l    d0,seekpos
  1082.     
  1083.     move.l    d0,d1
  1084.     add.l    #1,d0
  1085.     and.l    #$FFFFFFFE,d0
  1086.     sub.l    d1,d0
  1087.     beq.b    nopad3
  1088.     move.l    handle1,d1
  1089.     
  1090.     fileskip    handle1,#1
  1091.     
  1092. nopad3    move.l    seekpos,d0
  1093.     sub.l    #12,d0
  1094.     cmp.l    iffend,d0
  1095.     beq.b    nocamg
  1096.     bra.w    findcamg
  1097.  
  1098. nocamg    move.l    #0,iffcamg    ;standard lores 320x256
  1099.     bra.b    camgdone
  1100.  
  1101. camgfound    fileskip    handle1,#4
  1102.  
  1103.     fileread    handle1,#iffcamg,#4
  1104.  
  1105. camgdone    filemove    handle1,#12
  1106.  
  1107.  
  1108. findcmap    fileread    handle1,#store1,#4
  1109.     cmp.l    #'CMAP',store1
  1110.     beq.w    cmapfound
  1111.     
  1112.     fileread    handle1,#store1,#4
  1113.     fileskip    handle1,store1
  1114.     move.l    d0,seekpos
  1115.     
  1116.     move.l    d0,d1
  1117.     add.l    #1,d0
  1118.     and.l    #$FFFFFFFE,d0
  1119.     sub.l    d1,d0
  1120.     beq.b    nopad2
  1121.     
  1122.     fileskip    handle1,#1
  1123.     
  1124. nopad2    move.l    seekpos,d0
  1125.     sub.l    #12,d0
  1126.     cmp.l    iffend,d0
  1127.     beq.w    notiff
  1128.     bra.w    findcmap
  1129.  
  1130. cmapfound    fileread    handle1,#store1,#4
  1131.  
  1132.     move.l    store1,d7
  1133.     lea    palstore1,a5
  1134.     moveq    #0,d5
  1135.     moveq    #0,d2
  1136.     move.l    #$7fff,d4
  1137.  
  1138. copypal    fileread    handle1,#store1,#3
  1139.     move.b    store1,(a5)+
  1140.     move.b    store1+1,(a5)+
  1141.     move.b    store1+2,(a5)+
  1142.     moveq    #0,d6
  1143.     clr.w    d3
  1144.     move.b    store1,d6
  1145.     move.b    store1+1,d3
  1146.     add.w    d3,d6
  1147.     move.b    store1+2,d3
  1148.     add.w    d3,d6
  1149.     
  1150.     move.w    iffdepth,d1
  1151.     
  1152.     move.l    iffcamg,d0
  1153.     and.l    #$800,d0
  1154.     beq.b    notham
  1155.     
  1156.     sub.w    #2,d1
  1157.     
  1158. notham    and.l    #$80,d0
  1159.     beq.b    nothbr
  1160.     
  1161.     sub.w    #1,d1
  1162.  
  1163. nothbr    move.l    #1,d0
  1164.     lsl.w    d1,d0
  1165.     
  1166.     cmp.w    d0,d2
  1167.     bge.b    outofrange
  1168.     
  1169.     cmp.w    d6,d5
  1170.     bge.b    notlight
  1171.     
  1172.     move.w    d6,d5
  1173.     move.b    d2,lightest
  1174.     
  1175. notlight    cmp.w    d6,d4
  1176.     ble.b    notdark
  1177.     
  1178.     move.w    d6,d4
  1179.     move.b    d2,darkest
  1180.  
  1181. outofrange
  1182. notdark    add.l    #1,d2
  1183.     sub.w    #3,d7
  1184.     bne.w    copypal
  1185.     
  1186.     move.l    intuibase,a6
  1187.     move.l    winpt1,a0
  1188.     jsr    _LVOClearMenuStrip(a6)
  1189.     
  1190.     move.l    winpt1,a0
  1191.     jsr    _LVOCloseWindow(a6)
  1192.     clr.l    winpt1
  1193.     
  1194.     move.l    scrpt1,a0
  1195.     jsr    _LVOCloseScreen(a6)
  1196.  
  1197.     clr.l    scrpt1
  1198.  
  1199.     tst.l    pladdr
  1200.     beq.b    nobplns1
  1201.     
  1202.     move.l    pladdr,a1
  1203.     move.l    oldplsize,d0
  1204.     move.l    4.w,a6
  1205.     jsr    _LVOFreeMem(a6)
  1206.     clr.l    pladdr
  1207.     
  1208. nobplns1    move.w    bytewid2,bytesperrow
  1209.     move.w    height,height2
  1210.     move.w    iffdepth,d0
  1211.     move.b    d0,scdepth
  1212.  
  1213.     move.l    plsize,d0
  1214.     move.l    #MEMF_CHIP|MEMF_CLEAR,d1
  1215.     move.l    4.w,a6
  1216.     jsr    _LVOAllocMem(a6)
  1217.     tst.l    d0
  1218.     beq.w    noplram
  1219.     move.l    d0,pladdr
  1220.  
  1221.     move.w    iffdepth,d2
  1222.     move.w    bytewid2,d1
  1223.     mulu    height,d1
  1224.     move.l    pladdr,d0
  1225.     lea    bplptr,a1
  1226.     
  1227. modibpl1    move.l    d0,(a1)+
  1228.     add.l    d1,d0
  1229.     sub.w    #1,d2
  1230.     bne.b    modibpl1
  1231.     
  1232.     move.w    pagewid,scrwid
  1233.     move.w    pagewid,winwidth
  1234.     move.w    pageht,scrht
  1235.     move.w    pageht,winheight
  1236.     sub.w    #22,winheight
  1237.  
  1238.     move.w    iffdepth,scrdepth
  1239.     move.l    iffcamg,d0
  1240.  
  1241. camgmask    equ    ~(V_SPRITES|V_VP_HIDE|GENLOCK_AUDIO|GENLOCK_VIDEO|MONITOR_ID_MASK)
  1242.  
  1243.     and.l    #camgmask,d0
  1244.     move.l    d0,scrvmodes
  1245.     
  1246.     move.l    intuibase,a6
  1247.     lea    newscreen,a0
  1248.     jsr    _LVOOpenScreen(a6)
  1249.     tst.l    d0
  1250.     beq.w    noram
  1251.     move.l    d0,scrpt1
  1252.     move.l    d0,scrpt2
  1253.     move.l    d0,scrpt3
  1254.     move.l    d0,scrpt4
  1255.     ;move.l    d0,scrpt5
  1256.     
  1257.     move.w    iffdepth,cdepth
  1258.     move.w    cdepth,d0
  1259.     move.w    #1,d1
  1260.     lea    depthASCII,a0
  1261.     bsr.w    numtohexasc
  1262.     
  1263.     lea    newwindow,a0
  1264.     move.l    intuibase,a6
  1265.     jsr    _LVOOpenWindow(a6)
  1266.     move.l    d0,winpt1
  1267.     move.l    d0,winpt2
  1268.     move.l    d0,winpt3
  1269.     move.l    d0,winpt4
  1270.     beq.w    noram
  1271.  
  1272.     move.w    pageht,d0
  1273.     sub.w    #50,d0
  1274.     lsr.w    #1,d0
  1275.     move.w    d0,loadwiny
  1276.     move.w    pagewid,d0
  1277.     sub.w    #280,d0
  1278.     lsr.w    #1,d0
  1279.     move.w    d0,loadwinx
  1280.     move.l    #lwintitle,windowtitle
  1281.     
  1282.     lea    newloadwin,a0
  1283.     move.l    intuibase,a6
  1284.     jsr    _LVOOpenWindow(a6)
  1285.     move.l    d0,lswindow
  1286.     bsr.w    drawLSwin
  1287.     
  1288.     move.l    winpt1,a0
  1289.     lea    menu1,a1
  1290.     move.l    intuibase,a6
  1291.     jsr    _LVOSetMenuStrip(a6)
  1292.     
  1293.     move.l    winpt1,a0
  1294.     lea    mousept,a1
  1295.     move.w    #15,d0
  1296.     move.w    #15,d1
  1297.     move.w    #-8,d2
  1298.     move.w    #-7,d3
  1299.     jsr    _LVOSetPointer(a6)
  1300.     
  1301.     move.l    winpt1,a1
  1302.     move.l    wd_RPort(a1),a1
  1303.     move.b    #RP_COMPLEMENT,d0
  1304.     move.l    gfxbase,a6
  1305.     jsr    _LVOSetDrMd(a6)
  1306.     
  1307.     move.w    #$FFFF,brtlx
  1308.     move.w    #$FFFF,brtly
  1309.     move.w    #$FFFF,brbrx
  1310.     move.w    #$FFFF,brbry
  1311.     sf    brushon
  1312.     bsr.w    updatecoords
  1313.     
  1314.     filemove    handle1,#12
  1315.     
  1316. findbody    fileread    handle1,#store1,#4
  1317.     cmp.l    #'BODY',store1
  1318.     beq.w    bodyfound
  1319.     
  1320.     fileread    handle1,#store1,#4
  1321.     fileskip    handle1,store1
  1322.     move.l    d0,seekpos
  1323.     
  1324.     move.l    d0,d1
  1325.     add.l    #1,d0
  1326.     and.l    #$FFFFFFFE,d0
  1327.     sub.l    d1,d0
  1328.     beq.b    nopad4
  1329.     
  1330.     fileskip    handle1,#1
  1331.     
  1332. nopad4    move.l    seekpos,d0
  1333.     sub.l    #12,d0
  1334.     cmp.l    iffend,d0
  1335.     beq.w    notiff
  1336.     bra.w    findbody
  1337.  
  1338. bodyfound    tst.b    comp
  1339.     beq.w    nocomp
  1340.     
  1341.     fileread    handle1,#store1,#4
  1342.     move.l    store1,bodylen
  1343.     
  1344.     move.l    #copybuffend,buffptr
  1345.     moveq    #0,d3
  1346.     move.l    pladdr,a1
  1347.     moveq    #0,d2
  1348.     move.w    iffheight,d2
  1349.  
  1350.     cmp.b    #1,mask
  1351.     bne.b    nomaskpl
  1352.     
  1353.     add.w    #1,iffdepth
  1354. nomaskpl
  1355. nextline    move.w    iffheight,maxline
  1356.     move.w    d2,lineno
  1357.     bsr.w    updateLSwin
  1358.  
  1359.     move.w    iffdepth,d1
  1360.     sub.w    #1,d1
  1361. nextplane    move.w    bytewid1,d4
  1362.     sub.w    #1,d4
  1363.  
  1364. next    move.l    buffptr,a0
  1365.     cmp.l    #copybuffend,a0
  1366.     bne.b    notend1
  1367.  
  1368.     movem.l    d1-d7/a0-a5,-(sp)
  1369.     move.l    handle1,d1
  1370.     move.l    #copybuff,d2
  1371.     move.l    #1024*8,d3
  1372.     cmp.l    #1024*8,bodylen
  1373.     bge.b    noeof1
  1374.     move.l    bodylen,d3
  1375. noeof1    sub.l    d3,bodylen
  1376.     move.l    d3,lenstore
  1377.     
  1378.     jsr    _LVORead(a6)
  1379.     movem.l    (sp)+,d1-d7/a0-a5
  1380.     cmp.l    lenstore,d0
  1381.     bne.w    readerr
  1382.     lea    copybuff,a0
  1383.  
  1384. notend1    move.b    (a0)+,d7
  1385.     move.l    a0,buffptr
  1386.     tst.b    d7
  1387.     bpl.w    copy
  1388.     
  1389.     move.l    buffptr,a0
  1390.     cmp.l    #copybuffend,a0
  1391.     bne.b    notend2
  1392.  
  1393.     movem.l    d1-d7/a0-a5,-(sp)
  1394.     move.l    handle1,d1
  1395.     move.l    #copybuff,d2
  1396.     move.l    #1024*8,d3
  1397.     cmp.l    #1024*8,bodylen
  1398.     bge.b    noeof2
  1399.     move.l    bodylen,d3
  1400. noeof2    sub.l    d3,bodylen
  1401.     move.l    d3,lenstore
  1402.     
  1403.     jsr    _LVORead(a6)
  1404.     movem.l    (sp)+,d1-d7/a0-a5
  1405.     cmp.l    lenstore,d0
  1406.     bne.w    readerr
  1407.     lea    copybuff,a0
  1408.  
  1409. notend2    move.b    (a0)+,d6
  1410.     move.l    a0,buffptr
  1411.     
  1412.     ext.w    d7
  1413.     neg.w    d7
  1414.     add.w    #1,d7
  1415.     sub.w    d7,d4
  1416.     sub.w    #1,d7
  1417.     
  1418. replicate    tst.w    d1
  1419.     bne.b    nolastpl
  1420.     cmp.b    #1,mask
  1421.     bne.b    nolastpl
  1422.     add    #1,a1
  1423.     bra.b    nop1
  1424.         
  1425. nolastpl    move.b    d6,(a1)+
  1426. nop1    dbf    d7,replicate
  1427.     bra.w    testend
  1428.  
  1429. copy    ext.w    d7
  1430.     and.l    #$FFFF,d7
  1431.     add.w    #1,d7
  1432.     sub.w    d7,d4
  1433.     
  1434.     sub.l    #1,d7
  1435.     move.l    buffptr,a0
  1436.     
  1437. copybyte    cmp.l    #copybuffend,a0
  1438.     bne.b    notend3
  1439.  
  1440.     movem.l    d1-d7/a0-a5,-(sp)
  1441.     move.l    handle1,d1
  1442.     move.l    #copybuff,d2
  1443.     move.l    #1024*8,d3
  1444.     cmp.l    #1024*8,bodylen
  1445.     bge.b    noeof3
  1446.     move.l    bodylen,d3
  1447. noeof3    sub.l    d3,bodylen
  1448.     move.l    d3,lenstore
  1449.     
  1450.     jsr    _LVORead(a6)
  1451.     movem.l    (sp)+,d1-d7/a0-a5
  1452.     cmp.l    lenstore,d0
  1453.     bne.w    readerr
  1454.     lea    copybuff,a0
  1455.     
  1456. notend3    tst.w    d1
  1457.     bne.b    notlastpl2
  1458.     
  1459.     cmp.b    #1,mask
  1460.     bne.b    notlastpl2
  1461.     add.l    #1,a0
  1462.     add.l    #1,a1
  1463.     bra.b    nop2
  1464.     
  1465. notlastpl2    move.b    (a0)+,(a1)+
  1466. nop2    dbf    d7,copybyte
  1467.     move.l    a0,buffptr
  1468.  
  1469. testend    tst.w    d4
  1470.     bge.w    next
  1471.     cmp.w    #$FFFF,d4
  1472.     beq.b    noerr
  1473.     bra.w    corrupterr
  1474.  
  1475. noerr    moveq    #0,d7
  1476.     move.w    bytewid1,d7
  1477.     sub.l    d7,a1
  1478.     move.w    bytewid2,d7
  1479.     mulu    height,d7
  1480.     add.l    d7,a1
  1481.     dbf    d1,nextplane
  1482.  
  1483.     move.w    bytewid2,d7
  1484.     mulu    height,d7
  1485.     
  1486.     move.l    d1,-(sp)
  1487.     moveq    #0,d1
  1488.     move.w    iffdepth,d1
  1489.     
  1490.     move.l    d2,-(sp)
  1491.     moveq    #0,d2
  1492. mulu2    add.l    d7,d2
  1493.     sub.l    #1,d1
  1494.     bne.b    mulu2
  1495.     move.l    d2,d7
  1496.     move.l    (sp)+,d2
  1497.     ;mulu.l    d1,d7    68000 cannot do this
  1498.     
  1499.     move.l    (sp)+,d1
  1500.     
  1501.     sub.l    d7,a1
  1502.     move.w    bytewid2,d4
  1503.     lea    0(a1,d4.w),a1
  1504.     
  1505.     sub.l    #1,d2
  1506.     bne.w    nextline
  1507.     
  1508.     cmp.b    #1,mask
  1509.     bne.b    nomaskpl2
  1510.     sub.w    #1,iffdepth
  1511.     
  1512. nomaskpl2    bra.w    bodydone
  1513.  
  1514.  
  1515. nocomp    fileread    handle1,#store1,#4
  1516.     move.l    store1,bodylen
  1517.     
  1518.     move.l    pladdr,a1
  1519.     moveq    #0,d5
  1520.     moveq    #0,d2
  1521.     move.w    iffheight,d2
  1522. nextline2    move.w    d2,lineno
  1523.     move.w    iffheight,maxline
  1524.     bsr.w    updateLSwin
  1525.  
  1526.     move.w    iffdepth,d1
  1527.     sub.w    #1,d1
  1528.     
  1529. nextplane2    move.w    bytewid1,d3
  1530.     fileread    handle1,a1,d3
  1531.     
  1532.     move.w    bytewid2,d7
  1533.     mulu    height,d7
  1534.     add.l    d7,a1
  1535.     dbf    d1,nextplane2
  1536.     
  1537.     cmp.b    #1,mask
  1538.     bne.b    nomask2
  1539.     
  1540.     fileskip    handle1,bytewid1
  1541.     
  1542. nomask2    move.w    bytewid2,d7
  1543.     mulu    height,d7
  1544.     
  1545.     moveq    #0,d1
  1546.     move.w    iffdepth,d1
  1547.     move.l    d2,-(sp)
  1548.     moveq    #0,d2
  1549. mulu3    add.l    d7,d2
  1550.     sub.l    #1,d1
  1551.     bne.b    mulu3
  1552.     move.l    d2,d7
  1553.     move.l    (sp)+,d2
  1554.     ;mulu.l    d1,d7    68000 cannot do this
  1555.     
  1556.     move.l    handle1,d1
  1557.     sub.l    d7,a1
  1558.     
  1559.     move.w    bytewid2,d4
  1560.     lea    0(a1,d4.w),a1
  1561.     
  1562.     sub.l    #1,d2
  1563.     bne.w    nextline2
  1564.     
  1565. bodydone    bsr.w    closeLSwin
  1566.     bsr.w    closefile
  1567.  
  1568.     lea    pal32,a0
  1569.     move.w    #258-1,d0
  1570. clearpal    clr.l    (a0)+
  1571.     dbf    d0,clearpal
  1572.     
  1573.     tst.l    gfx39base
  1574.     beq.b    nogfx39
  1575.     
  1576.     move.l    gfx39base,a6
  1577.     move.l    #1,d0
  1578.     move.w    iffdepth,d1
  1579.     
  1580.     lsl.l    d1,d0
  1581.     lea    pal32,a1
  1582.     move.w    d0,d7
  1583.     mulu    #3,d7
  1584.     sub.w    #1,d7
  1585.     
  1586.     move.w    d0,(a1)+
  1587.     clr.w    (a1)+
  1588.     lea    palstore1,a0
  1589.     
  1590. convpal    move.b    (a0)+,d0
  1591.     and.l    #$FF,d0
  1592.     swap    d0
  1593.     lsl.l    #8,d0
  1594.     move.l    d0,(a1)+
  1595.     dbf    d7,convpal
  1596.     
  1597.     clr.l    (a1)+
  1598.     lea    pal32,a1
  1599.     move.l    scrpt1,a0
  1600.     lea    sc_ViewPort(a0),a0
  1601.     jsr    _LVOLoadRGB32(a6)
  1602.     bra.b    doblit
  1603.  
  1604. nogfx39    move.l    gfxbase,a6
  1605.     
  1606.     move.l    #1,d0
  1607.     move.w    iffdepth,d1
  1608.     
  1609.     lsl.l    d1,d0
  1610.     move.w    d0,d7
  1611.     sub.w    #1,d7
  1612.     
  1613.     lea    palstore1,a0
  1614.     lea    palstore2,a1
  1615.     
  1616. convpal2    moveq    #0,d2
  1617.     move.b    (a0)+,d1
  1618.     and.b    #$F0,d1
  1619.     lsr.b    #4,d1
  1620.     or.b    d1,d2
  1621.     lsl.w    #4,d2
  1622.     move.b    (a0)+,d1
  1623.     and.b    #$F0,d1
  1624.     lsr.b    #4,d1
  1625.     or.b    d1,d2
  1626.     lsl.w    #4,d2
  1627.     move.b    (a0)+,d1
  1628.     and.b    #$F0,d1
  1629.     lsr.b    #4,d1
  1630.     or.b    d1,d2
  1631.     move.w    d2,(a1)+
  1632.     dbf    d7,convpal2
  1633.     
  1634.     lea    palstore2,a1
  1635.     move.l    scrpt1,a0
  1636.     lea    sc_ViewPort(a0),a0
  1637.     jsr    _LVOLoadRGB4(a6)
  1638.     
  1639. doblit    lea    bitmap,a0
  1640.     moveq    #0,d0
  1641.     moveq    #0,d1
  1642.     move.l    winpt1,a1
  1643.     move.l    wd_RPort(a1),a1
  1644.     clr.w    d2
  1645.     clr.w    d3
  1646.     move.w    pagewid,d4
  1647.     cmp.w    iffwidth,d4
  1648.     blt.b    notwide1
  1649.     
  1650.     move.w    iffwidth,d4
  1651.     
  1652. notwide1    move.w    pageht,d5
  1653.     cmp.w    iffheight,d5
  1654.     blt.b    nothigh1
  1655.     
  1656.     move.w    iffheight,d5
  1657.     add.w    #$16,d5
  1658.     
  1659. nothigh1    sub.w    #$16,d5
  1660.     move.b    #$C0,d6
  1661.     jsr    _LVOBltBitMapRastPort(a6)
  1662.  
  1663.     clr.w    scrollx
  1664.     clr.w    scrolly
  1665.     move.w    #$FFFF,mousey
  1666.     move.w    #$FFFF,mousex
  1667.     bra.w    nomessage1
  1668.  
  1669. corrupterr    lea    bodyfmt5,a1
  1670.     lea    gadfmt5,a2
  1671.     lea    taglist,a0
  1672.     lea    0,a3
  1673.     lea    0,a4
  1674.     move.l    reqtbase,a6
  1675.     jsr    _LVOrtEZRequestA(a6)
  1676.     bra.w    bodydone
  1677.  
  1678. readerr    bsr.w    closeLSwin
  1679.     bsr.w    closefile
  1680.  
  1681.     lea    bodyfmt2,a1
  1682.     lea    gadfmt2,a2
  1683.     lea    taglist,a0
  1684.     lea    0,a3
  1685.     lea    0,a4
  1686.     move.l    reqtbase,a6
  1687.     jsr    _LVOrtEZRequestA(a6)
  1688.     bra.w    nomessage1
  1689.  
  1690. noplram    tst.l    dtobject
  1691.     beq.b    nodtobj2
  1692.     move.l    winpt1,a0
  1693.     move.l    dtobject,a1
  1694.     jsr    _LVORemoveDTObject(a6)
  1695.     
  1696.     move.l    dtobject,a0
  1697.     jsr    _LVODisposeDTObject(a6)
  1698.  
  1699. nodtobj2    bsr.w    closeLSwin
  1700.  
  1701.     lea    bodyfmt4,a1
  1702.     lea    gadfmt4,a2
  1703.     lea    taglist,a0
  1704.     lea    0,a3
  1705.     lea    0,a4
  1706.     move.l    reqtbase,a6
  1707.     jsr    _LVOrtEZRequestA(a6)
  1708.     bra.w    nomessage1
  1709.  
  1710. notiff    tst.l    dtbase
  1711.     beq.w    unknowntype
  1712.     
  1713.     move.l    dtbase,a6
  1714.     move.l    #filename,d0
  1715.     lea    dttags,a0
  1716.     jsr    _LVONewDTObjectA(a6)
  1717.     tst.l    d0
  1718.     beq.w    unknowntype
  1719.     move.l    d0,dtobject
  1720.     
  1721.     move.l    dtobject,a0
  1722.     lea    dtattrs,a2
  1723.     jsr    _LVOGetDTAttrsA(a6)
  1724.     
  1725.     move.l    dtwidth,d0
  1726.     move.w    d0,iffwidth
  1727.     move.l    d0,dtwidmod
  1728.     move.l    dtheight,d0
  1729.     move.w    d0,iffheight
  1730.     move.l    d0,dthtmod
  1731.     sub.l    #22,dthtmod
  1732.     
  1733.     move.l    bmhdaddr,a0    ;get address of BMHD
  1734.     
  1735.     moveq    #0,d0
  1736.     move.b    bmh_Depth(a0),d0
  1737.     move.w    d0,iffdepth
  1738.     move.w    bmh_XAspect(a0),aspects
  1739.     move.w    bmh_PageWidth(a0),pagewid
  1740.     move.w    bmh_PageHeight(a0),pageht
  1741.     
  1742.     moveq    #0,d0
  1743.     move.w    iffwidth,d0
  1744.     add.w    #15,d0
  1745.     divu    #16,d0
  1746.     add.w    d0,d0
  1747.     move.w    d0,bytewid1
  1748.     
  1749.     moveq    #0,d0
  1750.     move.w    iffwidth,d0
  1751.     move.w    d0,width
  1752.     add.w    #15,d0
  1753.     divu    #16,d0
  1754.     add.w    d0,d0
  1755.     move.w    d0,bytewid2
  1756.     
  1757.     move.w    bytewid2,d0
  1758.     move.w    iffheight,d1
  1759.     move.w    d1,height
  1760.     mulu    d1,d0
  1761.     moveq    #0,d1
  1762.     move.w    iffdepth,d1
  1763.     
  1764.     move.l    d2,-(sp)
  1765.     moveq    #0,d2
  1766. mulu8    add.l    d0,d2
  1767.     sub.l    #1,d1
  1768.     bne.b    mulu8
  1769.     move.l    d2,d0
  1770.     move.l    (sp)+,d2
  1771.     ;mulu.l    d1,d0    68000 cannot do this
  1772.     
  1773.     move.l    plsize,oldplsize
  1774.     move.l    d0,plsize
  1775.     
  1776.  
  1777.     move.l    colortable,a0
  1778.     lea    pal32,a1
  1779.     lea    palstore1,a2
  1780.  
  1781.     move.l    #1,d0
  1782.     move.w    iffdepth,d1
  1783.     lsl.l    d1,d0
  1784.     move.w    d0,(a1)+
  1785.     clr.w    (a1)+
  1786.     mulu    #3,d0
  1787.     
  1788. copypal3    move.l    (a0),d1
  1789.     rol.l    #8,d1
  1790.     move.b    d1,(a2)+
  1791.     move.l    (a0)+,(a1)+
  1792.     sub.w    #1,d0
  1793.     bne.b    copypal3
  1794.  
  1795.     move.l    intuibase,a6
  1796.     move.l    winpt1,a0
  1797.     jsr    _LVOClearMenuStrip(a6)
  1798.     
  1799.     move.l    winpt1,a0
  1800.     jsr    _LVOCloseWindow(a6)
  1801.     clr.l    winpt1
  1802.     
  1803.     move.l    scrpt1,a0
  1804.     jsr    _LVOCloseScreen(a6)
  1805.     clr.l    scrpt1
  1806.     
  1807.     tst.l    pladdr
  1808.     beq.b    nobplns2
  1809.     
  1810.     move.l    pladdr,a1
  1811.     move.l    oldplsize,d0
  1812.     move.l    4.w,a6
  1813.     jsr    _LVOFreeMem(a6)
  1814.     clr.l    pladdr
  1815.     
  1816. nobplns2    move.w    bytewid2,bytesperrow
  1817.     move.w    height,height2
  1818.     move.w    iffdepth,d0
  1819.     move.b    d0,scdepth
  1820.  
  1821.     move.l    plsize,d0
  1822.     move.l    #MEMF_CHIP|MEMF_CLEAR,d1
  1823.     move.l    4.w,a6
  1824.     jsr    _LVOAllocMem(a6)
  1825.     tst.l    d0
  1826.     beq.w    noplram
  1827.     move.l    d0,pladdr
  1828.  
  1829.     move.w    iffdepth,d2
  1830.     move.w    bytewid2,d1
  1831.     mulu    height,d1
  1832.     move.l    pladdr,d0
  1833.     lea    bplptr,a1
  1834.     
  1835. modibpl2    move.l    d0,(a1)+
  1836.     add.l    d1,d0
  1837.     sub.w    #1,d2
  1838.     bne.b    modibpl2
  1839.  
  1840.     move.w    pagewid,scrwid
  1841.     move.w    pagewid,winwidth
  1842.     move.w    pageht,scrht
  1843.     move.w    pageht,winheight
  1844.     sub.w    #22,winheight
  1845.  
  1846.     move.w    iffdepth,scrdepth
  1847.     move.l    iffcamg,d0
  1848.  
  1849.     and.l    #camgmask,d0
  1850.     move.l    d0,scrvmodes
  1851.     
  1852.     move.l    intuibase,a6
  1853.     lea    newscreen,a0
  1854.     jsr    _LVOOpenScreen(a6)
  1855.     tst.l    d0
  1856.     beq.w    noram
  1857.     move.l    d0,scrpt1
  1858.     move.l    d0,scrpt2
  1859.     move.l    d0,scrpt3
  1860.     move.l    d0,scrpt4
  1861.     ;move.l    d0,scrpt5
  1862.     
  1863.     move.w    iffdepth,cdepth
  1864.     move.w    cdepth,d0
  1865.     move.w    #1,d1
  1866.     lea    depthASCII,a0
  1867.     bsr.w    numtohexasc
  1868.     
  1869.     lea    newwindow,a0
  1870.     move.l    intuibase,a6
  1871.     jsr    _LVOOpenWindow(a6)
  1872.     move.l    d0,winpt1
  1873.     move.l    d0,winpt2
  1874.     move.l    d0,winpt3
  1875.     move.l    d0,winpt4
  1876.     beq.w    noram
  1877.     
  1878.     move.l    winpt1,a0
  1879.     lea    menu1,a1
  1880.     move.l    intuibase,a6
  1881.     jsr    _LVOSetMenuStrip(a6)
  1882.     
  1883.     move.l    winpt1,a0
  1884.     lea    mousept,a1
  1885.     move.w    #15,d0
  1886.     move.w    #15,d1
  1887.     move.w    #-8,d2
  1888.     move.w    #-7,d3
  1889.     jsr    _LVOSetPointer(a6)
  1890.     
  1891.     move.l    winpt1,a1
  1892.     move.l    wd_RPort(a1),a1
  1893.     move.b    #RP_COMPLEMENT,d0
  1894.     move.l    gfxbase,a6
  1895.     jsr    _LVOSetDrMd(a6)
  1896.     
  1897.     move.w    #$FFFF,brtlx
  1898.     move.w    #$FFFF,brtly
  1899.     move.w    #$FFFF,brbrx
  1900.     move.w    #$FFFF,brbry
  1901.     sf    brushon
  1902.     bsr.w    updatecoords
  1903.     bsr.w    fakebpl
  1904.  
  1905.     move.l    dtbase,a6
  1906.     move.l    dtobject,a0
  1907.     sub.l    a1,a1
  1908.     sub.l    a2,a2
  1909.     lea    dtattrs2,a3
  1910.     jsr    _LVOSetDTAttrsA(a6)
  1911.  
  1912.     move.l    winpt1,a0
  1913.     sub.l    a1,a1
  1914.     move.l    dtobject,a2
  1915.     move.l    #-1,d0
  1916.     jsr    _LVOAddDTObject(a6)
  1917.     
  1918. debug     move.l    dtobject,a0
  1919.     lea    dtattrs,a2
  1920.     jsr    _LVOGetDTAttrsA(a6)
  1921.     
  1922.     tst.l    bitmapaddr
  1923.     beq.b    debug
  1924.     
  1925.     move.l    bitmapaddr,a0
  1926.     move.l    #bitmap,a1
  1927.     moveq    #0,d0
  1928.     moveq    #0,d1
  1929.     moveq    #0,d2
  1930.     moveq    #0,d3
  1931.     move.w    iffwidth,d4
  1932.     move.w    iffheight,d5
  1933.     move.l    #$c0,d6
  1934.     move.l    #-1,d7
  1935.     move.l    gfxbase,a6
  1936.     jsr    _LVOBltBitMap(a6)
  1937.  
  1938.     move.l    dtbase,a6    
  1939.     move.l    dtobject,a0
  1940.     move.l    winpt1,a1
  1941.     sub.l    a2,a2
  1942.     sub.l    a3,a3
  1943.     jsr    _LVORefreshDTObjectA(a6)
  1944.  
  1945.     move.l    winpt1,a0
  1946.     move.l    dtobject,a1
  1947.     jsr    _LVORemoveDTObject(a6)
  1948.     
  1949.     move.l    dtobject,a0
  1950.     jsr    _LVODisposeDTObject(a6)
  1951.     bsr    closefile
  1952.     bra    nomessage1
  1953.  
  1954. unknowntype    ;lea    menupal,a1
  1955.     ;move.l    scrpt1,a0
  1956.     ;lea    sc_ViewPort(a0),a0
  1957.     ;move.l    #4,d0
  1958.     ;move.l    gfxbase,a6
  1959.     ;jsr    _LVOLoadRGB4(a6)
  1960.     
  1961.     ;lea    rawloadwin,a0
  1962.     ;move.l    intuibase,a6
  1963.     ;jsr    _LVOOpenWindow(a6)
  1964.     ;move.l    d0,winpt1
  1965.     
  1966.     bsr    closefile
  1967.     lea    bodyfmt3,a1
  1968.     lea    gadfmt3,a2
  1969.     lea    taglist,a0
  1970.     lea    0,a3
  1971.     lea    0,a4
  1972.     move.l    reqtbase,a6
  1973.     jsr    _LVOrtEZRequestA(a6)
  1974.     bra    nomessage1
  1975.  
  1976. closefile    tst.l    handle1
  1977.     beq    nofileopen
  1978.     
  1979.     move.l    dosbase,a6
  1980.     move.l    handle1,d1
  1981.     jsr    _LVOClose(a6)
  1982.     clr.l    handle1
  1983.     
  1984. nofileopen    tst.l    olddirlock
  1985.     beq    noolddir
  1986.     
  1987.     move.l    dosbase,a6
  1988.     move.l    olddirlock,d1
  1989.     jsr    _LVOCurrentDir(a6)
  1990.     
  1991. noolddir    tst.l    filelock
  1992.     beq    nofilelock
  1993.     
  1994.     move.l    filelock,d1
  1995.     move.l    dosbase,a6
  1996.     jsr    _LVOUnLock(a6)
  1997.     clr.l    filelock
  1998. nofilelock    rts
  1999.  
  2000. savepic    clr.b    filename
  2001.     tst.l    pladdr
  2002.     beq    nomessage1
  2003.     
  2004.     ;move.l    scrpt1,a0
  2005.     ;sub.l    a1,a1
  2006.     ;move.l    gadbase,a6
  2007.     ;jsr    _LVOGetVisualInfoA(a6)
  2008.     ;move.l    d0,visinfo
  2009.     ;beq    novisinfo
  2010.     ;move.l    d0,visinfo2
  2011.     
  2012.     ;move.l    gadbase,a6
  2013.     ;lea    gads,a0
  2014.     ;jsr    _LVOCreateContext(a6)
  2015.     ;tst.l    d0
  2016.     ;beq    nocontext
  2017.     ;move.l    d0,a0
  2018.     
  2019.     ;move.l    #MX_KIND,d0
  2020.     ;lea    picsavegad1,a1
  2021.     ;lea    gadtags1,a2
  2022.     ;jsr    _LVOCreateGadgetA(a6)
  2023.     ;move.l    d0,gadtgad1
  2024.     ;beq    nogadtgad
  2025.  
  2026.     ;move.w    pageht,d0
  2027.     ;sub.w    #200,d0
  2028.     ;lsr.w    #1,d0
  2029.     ;move.w    d0,spwiny
  2030.     ;move.w    pagewid,d0
  2031.     ;sub.w    #200,d0
  2032.     ;lsr.w    #1,d0
  2033.     ;move.w    d0,spwinx
  2034.  
  2035.     ;move.l    gads,spwingads
  2036.     
  2037.     ;lea    saveprefswin,a0
  2038.     ;move.l    intuibase,a6
  2039.     ;jsr    _LVOOpenWindow(a6)
  2040.     ;move.l    d0,tempwinptr
  2041.     
  2042.     ;move.l    tempwinptr,a0
  2043.     ;sub.l    a1,a1
  2044.     ;move.l    gadbase,a6
  2045.     ;jsr    _LVOGT_RefreshWindow(a6)
  2046.  
  2047.     ;move.l    intuibase,a6
  2048.     ;move.l    tempwinptr,a0
  2049.     ;jsr    _LVOCloseWindow(a6)
  2050.  
  2051. nogadtgad
  2052. nocontext    ;move.l    visinfo,a0
  2053.     ;move.l    gadbase,a6
  2054.     ;jsr    _LVOFreeVisualInfo(a6)
  2055.  
  2056. novisinfo    tst.b    d0
  2057.     bne    iffsave
  2058.         
  2059.     move.l    req2,a1
  2060.     lea    filename,a2
  2061.     lea    savetxt,a3
  2062.     lea    tags2,a0
  2063.     move.l    reqtbase,a6
  2064.     jsr    _LVOrtFileRequestA(a6)
  2065.     tst.l    d0
  2066.     beq    nomessage1
  2067.     
  2068.     lea    menupal,a1
  2069.     move.l    scrpt1,a0
  2070.     lea    sc_ViewPort(a0),a0
  2071.     move.l    #4,d0
  2072.     move.l    gfxbase,a6
  2073.     jsr    _LVOLoadRGB4(a6)
  2074.  
  2075.     move.l    #srawtitle,windowtitle
  2076.     
  2077.     lea    newloadwin,a0
  2078.     move.l    intuibase,a6
  2079.     jsr    _LVOOpenWindow(a6)
  2080.     move.l    d0,lswindow
  2081.     bsr    drawLSwin
  2082.     
  2083.     move.l    req2,a1
  2084.     move.l    rtfi_Dir(a1),d1
  2085.     move.l    #SHARED_LOCK,d2
  2086.     move.l    dosbase,a6
  2087.     jsr    _LVOLock(a6)
  2088.     move.l    d0,filelock
  2089.     beq    writeerr
  2090.     
  2091.     move.l    d0,d1
  2092.     jsr    _LVOCurrentDir(a6)
  2093.     move.l    d0,olddirlock
  2094.     
  2095.     move.l    #filename,d1
  2096.     move.l    #MODE_NEWFILE,d2
  2097.     move.l    dosbase,a6
  2098.     jsr    _LVOOpen(a6)
  2099.     tst.l    d0
  2100.     beq    writeerr
  2101.     
  2102.     move.l    d0,handle1
  2103.     cmp.b    #2,palinfo
  2104.     bne    nopalbefore1
  2105.     
  2106.     bsr    savepalbin
  2107.     bne    writeerr
  2108.  
  2109. nopalbefore1
  2110.     move.l    pladdr,a0
  2111.     cmp.b    #1,bplmeth
  2112.     beq    savebinil
  2113.     
  2114.     move.w    iffheight,d1
  2115.     mulu    cdepth,d1
  2116.     move.w    d1,maxline
  2117. nextline3    move.w    d1,lineno
  2118.     bsr    updateLSwin
  2119.  
  2120.     cmp.b    #1,extrablit
  2121.     bne    noblitL1
  2122.     
  2123.     clr.w    store1
  2124.     filewrite    handle1,#store1,#2
  2125.     
  2126. noblitL1    moveq    #0,d0
  2127.     move.w    bytewid1,d0
  2128.     
  2129.     filewrite    handle1,a0,d0
  2130.     
  2131.     cmp.b    #2,extrablit
  2132.     bne    noblitR1
  2133.     
  2134.     clr.w    store1
  2135.     filewrite    handle1,#store1,#2
  2136.     
  2137. noblitR1    moveq    #0,d0
  2138.     move.w    bytewid1,d0
  2139.     lea    0(a0,d0.w),a0
  2140.     
  2141.     sub.l    #1,d1
  2142.     bne    nextline3
  2143.     
  2144.     cmp.b    #1,palinfo
  2145.     bne    nopalafter1
  2146.     
  2147.     bsr    savepalbin
  2148.     bne    writeerr
  2149.     
  2150. nopalafter1    bsr    closeLSwin
  2151.     bsr    closefile
  2152.     bra    nomessage1
  2153.  
  2154. savebinil    moveq    #0,d1
  2155.     move.w    iffheight,d1
  2156. nextline4    move.w    d1,lineno
  2157.     move.w    iffheight,maxline
  2158.     bsr    updateLSwin
  2159.  
  2160.     move.w    #1,d2
  2161. nextpl1    cmp.w    cdepth,d2
  2162.     bgt    noplwrite
  2163.     
  2164.     cmp.b    #1,extrablit
  2165.     bne    noblitL2
  2166.     
  2167.     clr.w    store1
  2168.     filewrite    handle1,#store1,#2
  2169.     
  2170. noblitL2    moveq    #0,d0
  2171.     move.w    bytewid1,d0
  2172.     
  2173.     filewrite    handle1,a0,d0
  2174.     
  2175.     cmp.b    #2,extrablit
  2176.     bne    noblitR2
  2177.     
  2178.     clr.w    store1
  2179.     filewrite    handle1,#store1,#2
  2180.  
  2181. noplwrite
  2182. noblitR2    move.w    bytewid1,d0
  2183.     mulu    iffheight,d0
  2184.     
  2185.     lea    0(a0,d0.l),a0
  2186.     add.w    #1,d2
  2187.     cmp.w    iffdepth,d2
  2188.     ble    nextpl1
  2189.     
  2190.     move.w    bytewid1,d0
  2191.     mulu    iffheight,d0
  2192.     
  2193.     move.l    d1,-(sp)
  2194.     moveq    #0,d1
  2195.     move.w    iffdepth,d1
  2196.     move.l    d2,-(sp)
  2197.     moveq    #0,d2
  2198. mulu4    add.l    d0,d2
  2199.     sub.l    #1,d1
  2200.     bne    mulu4
  2201.     move.l    d2,d0
  2202.     move.l    (sp)+,d2
  2203.     ;mulu.l    d1,d0    68000 cannot do this
  2204.     
  2205.     move.l    (sp)+,d1
  2206.     
  2207.     sub.l    d0,a0
  2208.     move.w    bytewid1,d0
  2209.     
  2210.     lea    0(a0,d0.w),a0
  2211.     
  2212.     sub.l    #1,d1
  2213.     bne    nextline4
  2214.     
  2215.     cmp.b    #1,palinfo
  2216.     bne    nopalafter2
  2217.     
  2218.     bsr    savepalbin
  2219.     bne    writeerr
  2220.     
  2221. nopalafter2    bsr    closeLSwin
  2222.     bsr    closefile
  2223.     bsr    fakebpl
  2224.     bra    nomessage1
  2225.  
  2226. iffsave    move.l    req2,a1
  2227.     lea    filename,a2
  2228.     lea    savetxt,a3
  2229.     lea    tags2,a0
  2230.     move.l    reqtbase,a6
  2231.     jsr    _LVOrtFileRequestA(a6)
  2232.     tst.l    d0
  2233.     beq    nomessage1
  2234.     
  2235.     lea    menupal,a1
  2236.     move.l    scrpt1,a0
  2237.     lea    sc_ViewPort(a0),a0
  2238.     move.l    #4,d0
  2239.     move.l    gfxbase,a6
  2240.     jsr    _LVOLoadRGB4(a6)
  2241.     
  2242.     move.l    #swintitle,windowtitle
  2243.     lea    newloadwin,a0
  2244.     move.l    intuibase,a6
  2245.     jsr    _LVOOpenWindow(a6)
  2246.     move.l    d0,lswindow
  2247.     bsr    drawLSwin
  2248.     
  2249.     move.l    req2,a1
  2250.     move.l    rtfi_Dir(a1),d1
  2251.     move.l    #SHARED_LOCK,d2
  2252.     move.l    dosbase,a6
  2253.     jsr    _LVOLock(a6)
  2254.     move.l    d0,filelock
  2255.     beq    writeerr
  2256.     
  2257.     move.l    d0,d1
  2258.     jsr    _LVOCurrentDir(a6)
  2259.     move.l    d0,olddirlock
  2260.     
  2261.     move.l    #filename,d1
  2262.     move.l    #MODE_NEWFILE,d2
  2263.     move.l    dosbase,a6
  2264.     jsr    _LVOOpen(a6)
  2265.     tst.l    d0
  2266.     beq    writeerr
  2267.     move.l    d0,handle1
  2268.     
  2269.     move.l    #'FORM',store1
  2270.     filewrite    handle1,#store1,#4
  2271.     
  2272.     clr.l    store1
  2273.     filewrite    handle1,#store1,#4
  2274.  
  2275.     moveq    #0,d5
  2276.     move.l    #'ILBM',store1
  2277.     filewrite    handle1,#store1,#4
  2278.     add.l    #4,d5
  2279.     
  2280.     move.l    #'BMHD',store1
  2281.     filewrite    handle1,#store1,#4
  2282.     add.l    #4,d5
  2283.     
  2284.     move.l    #20,store1
  2285.     filewrite    handle1,#store1,#4
  2286.     add.l    #4,d5
  2287.     
  2288.     move.w    iffwidth,store1
  2289.     filewrite    handle1,#store1,#2
  2290.     add.l    #2,d5
  2291.     
  2292.     move.w    iffheight,store1
  2293.     filewrite    handle1,#store1,#2
  2294.     add.l    #2,d5
  2295.     
  2296.     clr.l    store1
  2297.     filewrite    handle1,#store1,#4
  2298.     add.l    #4,d5
  2299.     
  2300.     move.w    cdepth,d0
  2301.     move.b    d0,store1
  2302.     filewrite    handle1,#store1,#1
  2303.     add.l    #1,d5
  2304.     
  2305.     clr.b    store1
  2306.     filewrite    handle1,#store1,#1
  2307.     add.l    #1,d5
  2308.     
  2309.     move.b    iffcomp,store1
  2310.     filewrite    handle1,#store1,#1
  2311.     add.l    #1,d5
  2312.     
  2313.     clr.b    store1
  2314.     filewrite    handle1,#store1,#1
  2315.     add.l    #1,d5
  2316.     
  2317.     clr.w    store1
  2318.     filewrite    handle1,#store1,#2
  2319.     add.l    #2,d5
  2320.     
  2321.     filewrite    handle1,#aspects,#2
  2322.     add.l    #2,d5
  2323.     
  2324.     move.w    pagewid,store1
  2325.     filewrite    handle1,#store1,#2
  2326.     add.l    #2,d5
  2327.     
  2328.     move.w    pageht,store1
  2329.     filewrite    handle1,#store1,#2
  2330.     add.l    #2,d5
  2331.     
  2332.     move.l    #'CMAP',store1
  2333.     filewrite    handle1,#store1,#4
  2334.     add.l    #4,d5
  2335.     
  2336.     move.w    #1,d0
  2337.     move.w    cdepth,d1
  2338.     lsl.w    d1,d0
  2339.     mulu    #3,d0
  2340.     move.l    d0,d6
  2341.     move.l    d0,store1
  2342.     
  2343.     filewrite    handle1,#store1,#4
  2344.     add.l    #4,d5
  2345.     
  2346.     lea    palstore1,a0
  2347. writepal    move.b    (a0)+,store1
  2348.     move.b    (a0)+,store1+1
  2349.     move.b    (a0)+,store1+2
  2350.     
  2351.     filewrite    handle1,#store1,#3
  2352.     add.l    #3,d5
  2353.     
  2354.     sub.l    #3,d6
  2355.     bne    writepal
  2356.     
  2357.     btst    #0,d5
  2358.     beq    nopad1
  2359.     
  2360.     clr.b    store1
  2361.     filewrite    handle1,#store1,#1
  2362.     add.l    #1,d5
  2363.     
  2364. nopad1    move.l    #'CAMG',store1
  2365.     filewrite    handle1,#store1,#4
  2366.     add.l    #4,d5
  2367.     
  2368.     move.l    #4,store1
  2369.     filewrite    handle1,#store1,#4
  2370.     add.l    #4,d5
  2371.     
  2372.     move.l    iffcamg,store1
  2373.     and.l    #camgmask,store1
  2374.     filewrite    handle1,#store1,#4
  2375.     add.l    #4,d5
  2376.     
  2377.     move.l    #'BODY',store1
  2378.     filewrite    handle1,#store1,#4
  2379.     add.l    #4,d5
  2380.     move.l    d5,blenpos
  2381.     
  2382.     move.w    bytewid1,d0
  2383.     mulu    iffheight,d0
  2384.     
  2385.     move.l    d1,-(sp)
  2386.     moveq    #0,d1
  2387.     move.w    cdepth,d1
  2388.     move.l    d2,-(sp)
  2389.     moveq    #0,d2
  2390. mulu5    add.l    d0,d2
  2391.     sub.l    #1,d1
  2392.     bne    mulu5
  2393.     move.l    d2,d0
  2394.     move.l    (sp)+,d2
  2395.     ;mulu.l    d1,d0    68000 cannot do this
  2396.     
  2397.     move.l    (sp)+,d1
  2398.     
  2399.     move.l    d0,store1
  2400.     filewrite    handle1,#store1,#4
  2401.     add.l    #4,d5
  2402.     
  2403.     move.l    pladdr,a0
  2404.     moveq    #0,d1
  2405.     move.w    iffheight,d1
  2406. nextline5    move.w    d1,lineno
  2407.     move.w    iffheight,maxline
  2408.     bsr    updateLSwin
  2409.  
  2410.     move.w    #1,d2
  2411. nextplane3    cmp.w    cdepth,d2
  2412.     bgt    planesdone
  2413.     
  2414.     tst.b    iffcomp
  2415.     beq    nocomp1
  2416.     
  2417.     move.l     a0,buffptr2
  2418.     move.l     #copybuff,buffptr1
  2419.     
  2420.     movem.l    d0-d7/a0-a6,-(sp)
  2421.     moveq    #0,d0
  2422.     move.w    bytewid1,d0
  2423.     move.l    d0,-(sp)    ;store length
  2424.     move.l    #buffptr1,-(sp);store dest
  2425.     move.l    #buffptr2,-(sp);store source
  2426.     bsr    packrow      
  2427.     move.l    d0,store1
  2428.     
  2429.     lea    12(sp),sp
  2430.     movem.l    (sp)+,d0-d7/a0-a6
  2431.     add.l    store1,d5
  2432.     filewrite    handle1,#copybuff,store1
  2433.     bra    planesdone
  2434.  
  2435.  
  2436. nocomp1    moveq    #0,d0
  2437.     move.w    bytewid1,d0
  2438.     filewrite    handle1,a0,d0
  2439.     add.l    d0,d5
  2440.     
  2441. planesdone    move.w    bytewid1,d0
  2442.     mulu    iffheight,d0
  2443.     
  2444.     lea    0(a0,d0.l),a0
  2445.     add.w    #1,d2
  2446.     
  2447.     cmp.w    iffdepth,d2
  2448.     ble    nextplane3
  2449.     
  2450.     move.w    bytewid1,d0
  2451.     mulu    iffheight,d0
  2452.     
  2453.     move.l    d1,-(sp)
  2454.     moveq    #0,d1
  2455.     move.w    iffdepth,d1
  2456.     move.l    d2,-(sp)
  2457.     moveq    #0,d2
  2458. mulu6    add.l    d0,d2
  2459.     sub.l    #1,d1
  2460.     bne    mulu6
  2461.     move.l    d2,d0
  2462.     move.l    (sp)+,d2
  2463.     ;mulu.l    d1,d0    68000 cannot do this
  2464.     
  2465.     move.l    (sp)+,d1
  2466.     
  2467.     sub.l    d0,a0
  2468.     
  2469.     move.w    bytewid1,d0
  2470.     lea    0(a0,d0.w),a0
  2471.     
  2472.     sub.l    #1,d1
  2473.     bne    nextline5
  2474.     
  2475.     filemove    handle1,#4
  2476.     
  2477.     move.l    d5,store1
  2478.     filewrite    handle1,#store1,#4
  2479.     
  2480.     tst.b    iffcomp
  2481.     beq    nocomp2
  2482.     
  2483.     filemove    handle1,blenpos
  2484.     fileskip    handle1,#8
  2485.     
  2486.     sub.l    blenpos,d5
  2487.     sub.l    #4,d5
  2488.     move.l    d5,store1
  2489.     filewrite    handle1,#store1,#4
  2490.  
  2491. nocomp2    bsr    closeLSwin
  2492.     bsr    closefile
  2493.     bsr    fakebpl
  2494.     bra    nomessage1
  2495.  
  2496. savebr    tst.b    d0
  2497.     beq    brrawsave
  2498.     tst.w    brtlx
  2499.     bge    brushset1
  2500.     tst.w    brbrx
  2501.     bge    brushset1
  2502.     tst.w    brtly
  2503.     bge    brushset1
  2504.     tst.w    brbry
  2505.     bge    brushset1
  2506.     bra    nomessage1
  2507.  
  2508. brushset1    move.w    brtlx,d0
  2509.     move.w    brbrx,d1
  2510.     cmp.w    d0,d1
  2511.     bge    noswap3
  2512.     
  2513.     exg    d0,d1
  2514.     
  2515. noswap3    move.w    d0,brtlx
  2516.     move.w    d1,brbrx
  2517.     move.w    brtly,d0
  2518.     move.w    brbry,d1
  2519.     cmp.w    d0,d1
  2520.     bge    noswap4
  2521.     
  2522.     exg    d0,d1
  2523.     
  2524. noswap4    move.w    d0,brtly
  2525.     move.w    d1,brbry
  2526.     move.w    brtlx,d0
  2527.     move.w    brbrx,d1
  2528.     sub.w    d1,d0
  2529.     
  2530.     clr.b    filename
  2531.     move.l    req2,a1
  2532.     lea    filename,a2
  2533.     lea    savetxt,a3
  2534.     lea    tags2,a0
  2535.     move.l    reqtbase,a6
  2536.     jsr    _LVOrtFileRequestA(a6)
  2537.     tst.l    d0
  2538.     beq    nomessage1
  2539.     
  2540.     lea    menupal,a1
  2541.     move.l    scrpt1,a0
  2542.     lea    sc_ViewPort(a0),a0
  2543.     move.l    #4,d0
  2544.     move.l    gfxbase,a6
  2545.     jsr    _LVOLoadRGB4(a6)
  2546.  
  2547.     move.l    #swintitle,windowtitle
  2548.     lea    newloadwin,a0
  2549.     move.l    intuibase,a6
  2550.     jsr    _LVOOpenWindow(a6)
  2551.     move.l    d0,lswindow
  2552.     
  2553.     bsr    drawLSwin
  2554.  
  2555.     move.l    req2,a1
  2556.     move.l    rtfi_Dir(a1),d1
  2557.     move.l    #SHARED_LOCK,d2
  2558.     move.l    dosbase,a6
  2559.     jsr    _LVOLock(a6)
  2560.     move.l    d0,filelock
  2561.     beq    writeerr
  2562.     
  2563.     move.l    d0,d1
  2564.     jsr    _LVOCurrentDir(a6)
  2565.     move.l    d0,olddirlock
  2566.     
  2567.     move.l    #filename,d1
  2568.     move.l    #MODE_NEWFILE,d2
  2569.     move.l    dosbase,a6
  2570.     jsr    _LVOOpen(a6)
  2571.     tst.l    d0
  2572.     beq    writeerr
  2573.     move.l    d0,handle1
  2574.     
  2575.     move.l    #'FORM',store1
  2576.     filewrite    handle1,#store1,#4
  2577.     
  2578.     clr.l    store1
  2579.     filewrite    handle1,#store1,#4
  2580.     
  2581.     moveq    #0,d4
  2582.     move.l    #'ILBM',store1
  2583.     filewrite    handle1,#store1,#4
  2584.     add.l    #4,d4
  2585.     
  2586.     move.l    #'BMHD',store1
  2587.     filewrite    handle1,#store1,#4
  2588.     add.l    #4,d4
  2589.     
  2590.     move.l    #20,store1
  2591.     filewrite    handle1,#store1,#4
  2592.     add.l    #4,d4
  2593.     
  2594.     move.w    brbrx,d0
  2595.     sub.w    brtlx,d0
  2596.     tst.b    extrablit
  2597.     beq    noxblit
  2598.     add.w    #16,d0
  2599. noxblit    add.w    #1,d0
  2600.     
  2601.     move.w    d0,store1
  2602.     filewrite    handle1,#store1,#2
  2603.     add.l    #2,d4
  2604.     
  2605.     move.w    brbry,d0
  2606.     sub.w    brtly,d0
  2607.     add.w    #1,d0
  2608.     move.w    d0,store1
  2609.     filewrite    handle1,#store1,#2
  2610.     add.l    #2,d4
  2611.     
  2612.     clr.l    store1
  2613.     filewrite    handle1,#store1,#4
  2614.     add.l    #4,d4
  2615.     
  2616.     move.w    cdepth,d0
  2617.     move.b    d0,store1
  2618.     filewrite    handle1,#store1,#1
  2619.     add.l    #1,d4
  2620.     
  2621.     clr.b    store1
  2622.     filewrite    handle1,#store1,#1
  2623.     add.l    #1,d4
  2624.     
  2625.     move.b    iffcomp,store1
  2626.     filewrite    handle1,#store1,#1
  2627.     add.l    #1,d4
  2628.     
  2629.     clr.b    store1
  2630.     filewrite    handle1,#store1,#1
  2631.     add.l    #1,d4
  2632.     
  2633.     clr.w    store1
  2634.     filewrite    handle1,#store1,#2
  2635.     add.l    #2,d4
  2636.     
  2637.     filewrite    handle1,#aspects,#2
  2638.     add.l    #2,d4
  2639.     
  2640.     move.w    pagewid,store1
  2641.     filewrite    handle1,#store1,#2
  2642.     add.l    #2,d4
  2643.     
  2644.     move.w    pageht,store1
  2645.     filewrite    handle1,#store1,#2
  2646.     add.l    #2,d4
  2647.     
  2648.     move.l    #'CMAP',store1
  2649.     filewrite    handle1,#store1,#4
  2650.     add.l    #4,d4
  2651.     
  2652.     move.w    #1,d0
  2653.     move.w    cdepth,d1
  2654.     lsl.w    d1,d0
  2655.     mulu    #3,d0
  2656.     move.l    d0,d6
  2657.     move.l    d0,store1
  2658.     filewrite    handle1,#store1,#4
  2659.     add.l    #4,d4
  2660.     
  2661.     lea    palstore1,a0
  2662.     
  2663. savepal1    move.b    (a0)+,store1
  2664.     move.b    (a0)+,store1+1
  2665.     move.b    (a0)+,store1+2
  2666.     filewrite    handle1,#store1,#3
  2667.     add.l    #3,d4
  2668.     sub.l    #3,d6
  2669.     bne    savepal1
  2670.     
  2671.     btst    #0,d4
  2672.     beq    nopad5
  2673.     clr.b    store1
  2674.     filewrite    handle1,#store1,#1
  2675.     add.l    #1,d4
  2676.     
  2677. nopad5    move.l    #'CAMG',store1
  2678.     filewrite    handle1,#store1,#4
  2679.     add.l    #4,d4
  2680.     
  2681.     move.l    #4,store1
  2682.     filewrite    handle1,#store1,#4
  2683.     add.l    #4,d4
  2684.     
  2685.     move.l    iffcamg,store1
  2686.     and.l    #camgmask,store1
  2687.     filewrite    handle1,#store1,#4
  2688.     add.l    #4,d4
  2689.     
  2690.     move.l    #'BODY',store1
  2691.     filewrite    handle1,#store1,#4
  2692.     add.l    #4,d4
  2693.     move.l    d4,blenpos
  2694.     
  2695.     move.w    brbrx,d0
  2696.     sub.w    brtlx,d0
  2697.     add.w    #1,d0
  2698.     add.w    #15,d0
  2699.     divu    #16,d0
  2700.     
  2701.     add.w    d0,d0
  2702.     
  2703.     move.w    brbry,d1
  2704.     sub.w    brtly,d1
  2705.     add.w    #1,d1
  2706.     mulu    d1,d0
  2707.     
  2708.     move.l    d1,-(sp)
  2709.     moveq    #0,d1
  2710.     move.w    cdepth,d1
  2711.     move.l    d2,-(sp)
  2712.     moveq    #0,d2
  2713. mulu7    add.l    d0,d2
  2714.     sub.l    #1,d1
  2715.     bne    mulu7
  2716.     move.l    d2,d0
  2717.     move.l    (sp)+,d2
  2718.     ;mulu.l    d1,d0    68000 cannot do this
  2719.     
  2720.     move.l    (sp)+,d1
  2721.     
  2722.     move.l    d0,store1
  2723.     filewrite    handle1,#store1,#4
  2724.     add.l    #4,d4
  2725.     
  2726.     move.l    pladdr,a0
  2727.     lea    copybuff,a1
  2728.     move.w    brtly,d5
  2729.     move.l    a0,a4
  2730. nextline6    move.w    brbry,lineno
  2731.     sub.w    d5,lineno
  2732.     move.w    brbry,maxline
  2733.     
  2734.     move.w    brtly,d2
  2735.     sub.w    d2,maxline
  2736.     bsr    updateLSwin
  2737.  
  2738.     move.w    #1,d2
  2739.     move.w    d5,d3
  2740.     
  2741.     mulu    bytewid1,d3
  2742.     
  2743.     lea    0(a0,d3.l),a0
  2744.     
  2745. nextplane4    cmp.b    #1,extrablit
  2746.     bne    noblitL3
  2747.     
  2748.     clr.w    (a1)+
  2749.     
  2750. noblitL3    move.w    brtlx,d1
  2751. nextbyte    move.w    #7,d3
  2752.     clr.b    (a1)
  2753. nextbit    move.w    d1,d6
  2754.     move.w    d1,d7
  2755.     not.w    d7
  2756.     and.w    #7,d7
  2757.     and.w    #$FFF8,d6
  2758.     lsr.w    #3,d6
  2759.     
  2760.     btst    d7,0(a0,d6.w)
  2761.     beq    bitclear
  2762.     
  2763.     bset    d3,(a1)
  2764.     
  2765. bitclear    add.w    #1,d1
  2766.     cmp.w    brbrx,d1
  2767.     bgt    linedone
  2768.     
  2769.     sub.w    #1,d3
  2770.     bpl    nextbit
  2771.     
  2772.     add.w    #1,a1
  2773.     bra    nextbyte
  2774.  
  2775. linedone    add.w    #1,a1
  2776.     clr.b    (a1)
  2777.  
  2778.     cmp.b    #2,extrablit
  2779.     bne    noblitR3
  2780.     
  2781.     clr.w    (a1)+
  2782. noblitR3    
  2783.     cmp.w    cdepth,d2
  2784.     bgt    noplanes2
  2785.     
  2786.     sub.l    #copybuff,a1
  2787.     move.l    a1,d0
  2788.     add.l    #1,d0
  2789.     and.l    #$fffffffe,d0
  2790.     
  2791.     tst.b    iffcomp
  2792.     beq    nocomp3
  2793.     
  2794.     move.l    #copybuff,buffptr2
  2795.     move.l    #copybuff2,buffptr1
  2796.     
  2797.     movem.l    d0-d7/a0-a6,-(sp)
  2798.     move.l    d0,-(sp)    ;store length
  2799.     move.l    #buffptr1,-(sp);store dest
  2800.     move.l    #buffptr2,-(sp);store source
  2801.     bsr    packrow      
  2802.     move.l    d0,store1
  2803.     
  2804.     lea    12(sp),sp
  2805.     movem.l    (sp)+,d0-d7/a0-a6
  2806.     add.l    store1,d4
  2807.     filewrite    handle1,#copybuff2,store1
  2808.     bra    planesdone2
  2809.     
  2810. nocomp3    filewrite    handle1,#copybuff,d0
  2811.     add.l    a1,d4
  2812. noplanes2
  2813. planesdone2    lea    copybuff,a1
  2814.     move.w    iffheight,d0
  2815.     mulu    bytewid1,d0
  2816.     
  2817.     lea    0(a0,d0.l),a0
  2818.     
  2819.     add.w    #1,d2
  2820.     
  2821.     cmp.w    iffdepth,d2
  2822.     ble    nextplane4
  2823.     
  2824.     move.l    a4,a0
  2825.     add.w    #1,d5
  2826.     cmp.w    brbry,d5
  2827.     ble    nextline6
  2828.     
  2829.     filemove    handle1,#4
  2830.     
  2831.     move.l    d4,store1
  2832.     filewrite    handle1,#store1,#4
  2833.     
  2834.     tst.b    iffcomp
  2835.     beq    nocomp4
  2836.     
  2837.     filemove    handle1,blenpos
  2838.     fileskip    handle1,#8
  2839.     
  2840.     sub.l    blenpos,d4
  2841.     sub.l    #4,d4
  2842.     move.l    d4,store1
  2843.     filewrite    handle1,#store1,#4
  2844.  
  2845. nocomp4    bsr    closeLSwin
  2846.     bsr    closefile
  2847.     bsr    fakebpl
  2848.     bra    nomessage1
  2849.  
  2850. brrawsave    tst.w    brtlx
  2851.     bge    brushset2
  2852.     tst.w    brbrx
  2853.     bge    brushset2
  2854.     tst.w    brtly
  2855.     bge    brushset2
  2856.     tst.w    brbry
  2857.     bge    brushset2
  2858.     bra    nomessage1
  2859.  
  2860. brushset2    move.w    brtlx,d0
  2861.     move.w    brbrx,d1
  2862.     cmp.w    d0,d1
  2863.     bge    noswap5
  2864.     
  2865.     exg    d0,d1
  2866.     
  2867. noswap5    move.w    d0,brtlx
  2868.     move.w    d1,brbrx
  2869.     move.w    brtly,d0
  2870.     move.w    brbry,d1
  2871.     cmp.w    d0,d1
  2872.     bge    noswap6
  2873.     
  2874.     exg    d0,d1
  2875.     
  2876. noswap6    move.w    d0,brtly
  2877.     move.w    d1,brbry
  2878.     move.w    brtlx,d0
  2879.     move.w    brbrx,d1
  2880.     sub.w    d1,d0
  2881.     
  2882.     clr.b    filename
  2883.     move.l    req2,a1
  2884.     lea    filename,a2
  2885.     lea    savetxt,a3
  2886.     lea    tags2,a0
  2887.     move.l    reqtbase,a6
  2888.     jsr    _LVOrtFileRequestA(a6)
  2889.     tst.l    d0
  2890.     beq    nomessage1
  2891.     
  2892.     lea    menupal,a1
  2893.     move.l    scrpt1,a0
  2894.     lea    sc_ViewPort(a0),a0
  2895.     move.l    #4,d0
  2896.     move.l    gfxbase,a6
  2897.     jsr    _LVOLoadRGB4(a6)
  2898.  
  2899.     move.l    #srawtitle,windowtitle
  2900.     lea    newloadwin,a0
  2901.     move.l    intuibase,a6
  2902.     jsr    _LVOOpenWindow(a6)
  2903.     move.l    d0,lswindow
  2904.     bsr    drawLSwin
  2905.  
  2906.     move.l    req2,a1
  2907.     move.l    rtfi_Dir(a1),d1
  2908.     move.l    #SHARED_LOCK,d2
  2909.     move.l    dosbase,a6
  2910.     jsr    _LVOLock(a6)
  2911.     move.l    d0,filelock
  2912.     beq    writeerr
  2913.     
  2914.     move.l    d0,d1
  2915.     jsr    _LVOCurrentDir(a6)
  2916.     move.l    d0,olddirlock
  2917.     
  2918.     move.l    #filename,d1
  2919.     move.l    #MODE_NEWFILE,d2
  2920.     move.l    dosbase,a6
  2921.     jsr    _LVOOpen(a6)
  2922.     tst.l    d0
  2923.     beq    writeerr
  2924.     move.l    d0,handle1
  2925.     
  2926.     cmp.b    #2,palinfo
  2927.     bne    nopalbefore2
  2928.     
  2929.     bsr    savepalbin
  2930.     bne    writeerr
  2931.  
  2932. nopalbefore2
  2933.     tst.b    bplmeth
  2934.     bne    brsaverawil
  2935.     
  2936.     move.l    pladdr,a0
  2937.     lea    copybuff,a1
  2938.     move.w    #1,d2
  2939.     
  2940. nextplane5    move.l    a0,a4
  2941.     move.w    brtly,d5
  2942. nextline7    move.l    d7,-(sp)
  2943.     move.w    brbry,d7
  2944.     sub.w    brtly,d7
  2945.     mulu    iffdepth,d7
  2946.     move.w    d7,lineno
  2947.     
  2948.     move.w    brbry,d7
  2949.     sub.w    brtly,d7
  2950.     sub.w    #1,d2
  2951.     mulu    d2,d7
  2952.     add.w    #1,d2
  2953.     
  2954.     sub.w    brtly,d7
  2955.     add.w    d5,d7
  2956.     sub.w    d7,lineno
  2957.     move.l    (sp)+,d7
  2958.     
  2959.     move.w    brbry,maxline
  2960.     move.w    brtly,d1
  2961.     sub.w    d1,maxline
  2962.     move.w    maxline,d1
  2963.     mulu    iffdepth,d1
  2964.     move.w    d1,maxline
  2965.     bsr    updateLSwin
  2966.  
  2967.     move.w    brtlx,d1
  2968.     move.w    d5,d3
  2969.     
  2970.     mulu    bytewid1,d3
  2971.     lea    0(a0,d3.l),a0
  2972. nextbyte2    move.w    #7,d3
  2973.     clr.b    (a1)
  2974.     
  2975. nextbit2    move.w    d1,d6
  2976.     move.w    d1,d7
  2977.     not.w    d7
  2978.     and.w    #7,d7
  2979.     and.w    #$FFF8,d6
  2980.     lsr.w    #3,d6
  2981.     btst    d7,0(a0,d6.w)
  2982.     beq    bitclear2
  2983.     
  2984.     bset    d3,(a1)
  2985.     
  2986. bitclear2    add.w    #1,d1
  2987.     cmp.w    brbrx,d1
  2988.     bgt    linedone2
  2989.     
  2990.     sub.w    #1,d3
  2991.     bpl    nextbit2
  2992.     
  2993.     add.w    #1,a1
  2994.     bra    nextbyte2
  2995.  
  2996. linedone2    add.w    #1,a1
  2997.     cmp.w    cdepth,d2
  2998.     bgt    noplanes3
  2999.     
  3000.     cmp.b    #1,extrablit
  3001.     bne    noblitL4
  3002.     
  3003.     clr.w    store1
  3004.     filewrite    handle1,#store1,#2
  3005.     
  3006. noblitL4    clr.b    (a1)
  3007.     sub.l    #copybuff,a1
  3008.     move.l    a1,d0
  3009.     add.l    #1,d0
  3010.     and.l    #$fffffffe,d0
  3011.     filewrite    handle1,#copybuff,d0
  3012.     
  3013.     cmp.b    #2,extrablit
  3014.     bne    noblitR4
  3015.     
  3016.     clr.w    store1
  3017.     filewrite    handle1,#store1,#2
  3018.     
  3019. noplanes3
  3020. noblitR4    lea    copybuff,a1
  3021.     move.l    a4,a0
  3022.     add.w    #1,d5
  3023.     cmp.w    brbry,d5
  3024.     ble    nextline7
  3025.     
  3026.     move.l    a4,a0
  3027.     move.w    iffheight,d0
  3028.     mulu    bytewid1,d0
  3029.     
  3030.     lea    0(a0,d0.l),a0
  3031.     
  3032.     add.w    #1,d2
  3033.     cmp.w    iffdepth,d2
  3034.     ble    nextplane5
  3035.     
  3036.     cmp.b    #1,palinfo
  3037.     bne    nopalafter3
  3038.     
  3039.     bsr    savepalbin
  3040.     bne    writeerr
  3041.     
  3042. nopalafter3    bsr    closeLSwin
  3043.     bsr    closefile
  3044.     bsr    fakebpl
  3045.     bra    nomessage1
  3046.  
  3047. brsaverawil    move.l    pladdr,a0
  3048.     lea    copybuff,a1
  3049.     move.w    brtly,d5
  3050.     move.l    a0,a4
  3051.     
  3052. nextline8    move.w    brbry,lineno
  3053.     sub.w    d5,lineno
  3054.     move.w    brbry,maxline
  3055.     move.w    brtly,d2
  3056.     sub.w    d2,maxline
  3057.     bsr    updateLSwin
  3058.  
  3059.     move.w    #1,d2
  3060.     move.w    d5,d3
  3061.     mulu    bytewid1,d3
  3062.     lea    0(a0,d3.l),a0
  3063.     
  3064. nextplane6    move.w    brtlx,d1
  3065. nextbyte3    move.w    #7,d3
  3066.     clr.b    (a1)
  3067.     
  3068. nextbit3    move.w    d1,d6
  3069.     move.w    d1,d7
  3070.     not.w    d7
  3071.     and.w    #7,d7
  3072.     and.w    #$FFF8,d6
  3073.     lsr.w    #3,d6
  3074.     btst    d7,0(a0,d6.w)
  3075.     
  3076.     beq    bitclear3
  3077.     
  3078.     cmp.w    cdepth,d2
  3079.     bgt    noplanes4
  3080.     
  3081.     bset    d3,(a1)
  3082.     
  3083. noplanes4
  3084. bitclear3    add.w    #1,d1
  3085.     cmp.w    brbrx,d1
  3086.     bgt    linedone3
  3087.     
  3088.     sub.w    #1,d3
  3089.     bpl    nextbit3
  3090.     
  3091.     add.w    #1,a1
  3092.     bra    nextbyte3
  3093.  
  3094. linedone3    add.w    #1,a1
  3095.     cmp.b    #1,extrablit
  3096.     bne    noblitL5
  3097.     
  3098.     clr.w    store1
  3099.     filewrite    handle1,#store1,#2
  3100.     
  3101. noblitL5    clr.b    (a1)
  3102.     sub.l    #copybuff,a1
  3103.     move.l    a1,d0
  3104.     add.l    #1,d0
  3105.     and.l    #$fffffffe,d0
  3106.     filewrite    handle1,#copybuff,d0
  3107.     
  3108.     cmp.b    #2,extrablit
  3109.     bne    noblitR5
  3110.     
  3111.     clr.w    store1
  3112.     filewrite    handle1,#store1,#2
  3113.     
  3114. noblitR5    lea    copybuff,a1
  3115.     move.w    iffheight,d0
  3116.     mulu    bytewid1,d0
  3117.     
  3118.     lea    0(a0,d0.l),a0
  3119.     
  3120.     add.w    #1,d2
  3121.     
  3122.     cmp.w    cdepth,d2
  3123.     ble    nextplane6
  3124.     
  3125.     move.l    a4,a0
  3126.     add.w    #1,d5
  3127.     
  3128.     cmp.w    brbry,d5
  3129.     ble    nextline8
  3130.     
  3131.     cmp.b    #1,palinfo
  3132.     bne    nopalafter4
  3133.     
  3134.     bsr    savepalbin
  3135.     bne    writeerr
  3136.     
  3137. nopalafter4    bsr    closeLSwin
  3138.     bsr    closefile
  3139.     bsr    fakebpl
  3140.     bra    nomessage1
  3141.  
  3142. savesprite    cmp.b    #0,d0
  3143.     bne    notwid16
  3144.     
  3145.     move.l    #16,d1
  3146.     
  3147. notwid16    cmp.b    #1,d0
  3148.     bne    notwid32
  3149.     
  3150.     move.l    #32,d1
  3151.     
  3152. notwid32    cmp.b    #2,d0
  3153.     bne    notwid64
  3154.     
  3155.     move.l    #64,d1
  3156.     
  3157. notwid64    move.l    d1,sprwid
  3158.  
  3159.     tst.w    brtlx
  3160.     bge    brushset3
  3161.     tst.w    brbrx
  3162.     bge    brushset3
  3163.     tst.w    brtly
  3164.     bge    brushset3
  3165.     tst.w    brbry
  3166.     bge    brushset3
  3167.     bra    nomessage1
  3168.  
  3169. brushset3    move.w    brtlx,d0
  3170.     move.w    brbrx,d1
  3171.     cmp.w    d0,d1
  3172.     bge    noswap7
  3173.     
  3174.     exg    d0,d1
  3175.     
  3176. noswap7    move.w    d0,brtlx
  3177.     move.w    d1,brbrx
  3178.     move.w    brtly,d0
  3179.     move.w    brbry,d1
  3180.     cmp.w    d0,d1
  3181.     bge    noswap8
  3182.     
  3183.     exg    d0,d1
  3184.     
  3185. noswap8    move.w    d0,brtly
  3186.     move.w    d1,brbry
  3187.     
  3188.     clr.b    filename
  3189.     move.l    req2,a1
  3190.     lea    filename,a2
  3191.     lea    savetxt,a3
  3192.     lea    tags2,a0
  3193.     move.l    reqtbase,a6
  3194.     jsr    _LVOrtFileRequestA(a6)
  3195.     tst.l    d0
  3196.     beq    nomessage1
  3197.     
  3198.     move.l    req2,a1
  3199.     move.l    rtfi_Dir(a1),d1
  3200.     move.l    #SHARED_LOCK,d2
  3201.     move.l    dosbase,a6
  3202.     jsr    _LVOLock(a6)
  3203.     move.l    d0,filelock
  3204.     beq    writeerr
  3205.     
  3206.     move.l    d0,d1
  3207.     jsr    _LVOCurrentDir(a6)
  3208.     move.l    d0,olddirlock
  3209.     
  3210.     move.l    #filename,d1
  3211.     move.l    #MODE_NEWFILE,d2
  3212.     move.l    dosbase,a6
  3213.     jsr    _LVOOpen(a6)
  3214.     tst.l    d0
  3215.     beq    writeerr
  3216.     move.l    d0,handle1
  3217.     
  3218.     tst.b    sprctrl
  3219.     beq    noctrl
  3220.     
  3221.     tst.b    sprmeth
  3222.     bne    sprbinctrl
  3223.     
  3224.     cmp.l    #16,sprwid
  3225.     bne    sprwid32
  3226.     
  3227.     move.b    #'1',spr16ctrl+3
  3228.     filewrite    handle1,#spr16ctrl,#end16save-spr16ctrl
  3229.     bra    noctrl
  3230.  
  3231. sprwid32    cmp.l    #32,sprwid
  3232.     bne    sprwid64
  3233.     
  3234.     move.b    #'1',spr32ctrl+3
  3235.     filewrite    handle1,#spr32ctrl,#end32save-spr32ctrl
  3236.     bra    noctrl
  3237.  
  3238. sprwid64    move.b    #'1',spr64ctrl+3
  3239.     filewrite    handle1,#spr64ctrl,#end64save-spr64ctrl
  3240.     bra    noctrl
  3241.  
  3242. sprbinctrl    move.l    sprwid,d6
  3243.     divu    #8,d6
  3244.     and.l    #$FFFF,d6
  3245.     add.w    d6,d6
  3246.     clr.l    copybuff
  3247.     clr.l    copybuff+4
  3248.     
  3249.     filewrite    handle1,#copybuff,d6
  3250.     
  3251. noctrl    move.l    pladdr,a0
  3252.     lea    copybuff,a1
  3253.     move.w    brtly,d5
  3254.     move.l    a0,a4
  3255.     
  3256. nextline9    move.w    #1,d2
  3257.     move.w    d5,d3
  3258.     mulu    bytewid1,d3
  3259.     
  3260.     lea    0(a0,d3.l),a0
  3261.     
  3262.     clr.l    copybuff
  3263.     clr.l    copybuff+4
  3264.     clr.l    copybuff+8
  3265.     clr.l    copybuff+12
  3266.     
  3267. nextplane7    move.w    brtlx,d1
  3268.  
  3269.     cmp.w    cdepth,d2
  3270.     bgt    planeblank
  3271.     
  3272. nextbyte1    move.w    #7,d3
  3273.     clr.b    (a1)
  3274.     
  3275. nextbit1    move.w    d1,d6
  3276.     move.w    d1,d7
  3277.     not.w    d7
  3278.     and.w    #7,d7
  3279.     and.w    #$FFF8,d6
  3280.     lsr.w    #3,d6
  3281.     btst    d7,0(a0,d6.w)
  3282.     beq    bitclear1
  3283.     
  3284.     bset    d3,(a1)
  3285.     
  3286. bitclear1    add.w    #1,d1
  3287.     move.w    brtlx,d4
  3288.     add.l    sprwid,d4
  3289.     cmp.w    d4,d1
  3290.     bge    linedone4
  3291.     
  3292.     cmp.w    brbrx,d1
  3293.     bgt    linedone4
  3294.     
  3295.     sub.w    #1,d3
  3296.     bpl    nextbit1
  3297.     
  3298.     add.w    #1,a1
  3299.     bra    nextbyte1
  3300.  
  3301. linedone4    add.w    #1,a1
  3302. planeblank    move.w    iffheight,d0
  3303.     mulu    bytewid1,d0
  3304.     lea    0(a0,d0.l),a0
  3305.     
  3306.     add.w    #1,d2
  3307.     cmp.w    #3,d2
  3308.     bne    nextplane7
  3309.     
  3310.     tst.b    sprmeth
  3311.     bne    sprsavebin
  3312.     
  3313.     cmp.l    #16,sprwid
  3314.     beq    sprwid16a
  3315.     
  3316.     cmp.l    #32,sprwid
  3317.     beq    sprwid32a
  3318.     
  3319.     move.w    copybuff+14,d0
  3320.     move.w    #4,d1
  3321.     lea    sprtxt10,a0
  3322.     bsr    numtohexasc
  3323.     
  3324.     move.w    copybuff+12,d0
  3325.     move.w    #4,d1
  3326.     lea    sprtxt9,a0
  3327.     bsr    numtohexasc
  3328.     
  3329.     move.w    copybuff+10,d0
  3330.     move.w    #4,d1
  3331.     lea    sprtxt8,a0
  3332.     bsr    numtohexasc
  3333.     
  3334.     move.w    copybuff+8,d0
  3335.     move.w    #4,d1
  3336.     lea    sprtxt7,a0
  3337.     bsr    numtohexasc
  3338.     
  3339. sprwid32a    move.w    copybuff+6,d0
  3340.     move.w    #4,d1
  3341.     lea    sprtxt6,a0
  3342.     bsr    numtohexasc
  3343.     
  3344.     move.w    copybuff+4,d0
  3345.     move.w    #4,d1
  3346.     lea    sprtxt5,a0
  3347.     bsr    numtohexasc
  3348.     
  3349. sprwid16a    move.w    copybuff+2,d0
  3350.     move.w    #4,d1
  3351.     lea    sprtxt4,a0
  3352.     bsr    numtohexasc
  3353.     
  3354.     move.w    copybuff,d0
  3355.     move.w    #4,d1
  3356.     lea    sprtxt3,a0
  3357.     bsr    numtohexasc
  3358.     
  3359.     lea    sprtxt2,a0
  3360.     
  3361.     move.l    sprwid,d0
  3362.     divu    #$10,d0
  3363.     mulu    #12,d0
  3364.     lea    0(a0,d0.l),a0
  3365.     
  3366.     move.b    (a0),d6
  3367.     move.b    #10,(a0)+
  3368.     
  3369.     move.l    a0,a2
  3370.     sub.l    #sprtxt1,a2
  3371.     
  3372.     filewrite    handle1,#sprtxt1,a2
  3373.     
  3374.     move.b    d6,-(a0)
  3375.     bra    writeline
  3376.  
  3377.  
  3378. sprsavebin    move.l    sprwid,d6
  3379.     divu    #8,d6
  3380.     and.l    #$FFFF,d6
  3381.     add.w    d6,d6
  3382.     
  3383.     filewrite    handle1,#copybuff,d6
  3384.     
  3385. writeline    lea    copybuff,a1
  3386.     move.l    a4,a0
  3387.     add.w    #1,d5
  3388.     cmp.w    brbry,d5
  3389.     ble    nextline9
  3390.  
  3391.     tst.b    sprctrl
  3392.     beq    noendctrl
  3393.     
  3394.     tst.b    sprmeth
  3395.     bne    writebin
  3396.     
  3397.     cmp.l    #16,sprwid
  3398.     bne    notwid16a
  3399.     
  3400.     filewrite    handle1,#sprsaveA,#end16save-sprsaveA
  3401.     bra    noendctrl
  3402.  
  3403. notwid16a    cmp.l    #32,sprwid
  3404.     bne    notwid32a
  3405.     
  3406.     filewrite    handle1,#sprsaveB,#end32save-sprsaveB
  3407.     bra    noendctrl
  3408.  
  3409. notwid32a    filewrite    handle1,#sprsaveC,#end64save-sprsaveC
  3410.     bra    noendctrl
  3411.  
  3412. writebin    move.l    sprwid,d6
  3413.     divu    #8,d6
  3414.     and.l    #$FFFF,d6
  3415.     add.w    d6,d6
  3416.     clr.l    copybuff
  3417.     clr.l    copybuff+4
  3418.     
  3419.     filewrite    handle1,#copybuff,d6
  3420.  
  3421. noendctrl    tst.b    sprdepth
  3422.     beq    no4plspr
  3423.     
  3424.     tst.b    sprctrl
  3425.     beq    noctrl2
  3426.     
  3427.     tst.b    sprmeth
  3428.     bne    savectrlbin
  3429.     
  3430.     cmp.l    #16,sprwid
  3431.     bne    notwid16b
  3432.     
  3433.     move.b    #'2',spr16ctrl+3
  3434.     filewrite    handle1,#spr16ctrl,#end16save-spr16ctrl
  3435.     bra    noctrl2
  3436.  
  3437. notwid16b    cmp.l    #32,sprwid
  3438.     bne    notwid32b
  3439.     
  3440.     move.b    #'2',spr32ctrl+3
  3441.     filewrite    handle1,#spr32ctrl,#end32save-spr32ctrl
  3442.     bra    noctrl2
  3443.  
  3444. notwid32b    move.b    #'2',spr64ctrl+3
  3445.     filewrite    handle1,#spr64ctrl,#end64save-spr64ctrl
  3446.     bra    noctrl2
  3447.  
  3448. savectrlbin    move.l    sprwid,d6
  3449.     divu    #8,d6
  3450.     and.l    #$FFFF,d6
  3451.     add.w    d6,d6
  3452.     clr.l    copybuff
  3453.     clr.l    copybuff+4
  3454.     
  3455.     filewrite    handle1,#copybuff,d6
  3456.     
  3457. noctrl2    move.l    pladdr,a0
  3458.     move.w    bytewid1,d6
  3459.     mulu    iffheight,d6
  3460.     add.l    d6,a0
  3461.     add.l    d6,a0
  3462.     lea    copybuff,a1
  3463.     move.w    brtly,d5
  3464.     move.l    a0,a4
  3465.  
  3466. nextline10    move.w    #3,d2
  3467.     move.w    d5,d3
  3468.     mulu    bytewid1,d3
  3469.     lea    0(a0,d3.l),a0
  3470.  
  3471.     clr.l    copybuff
  3472.     clr.l    copybuff+4
  3473.     clr.l    copybuff+8
  3474.     clr.l    copybuff+12
  3475.  
  3476. nextplane8    move.w    brtlx,d1
  3477.     cmp.w    cdepth,d2
  3478.     bgt    planeblank2
  3479.  
  3480. nextbyte4    move.w    #7,d3
  3481.     clr.b    (a1)
  3482.  
  3483. nextbit4    move.w    d1,d6
  3484.     move.w    d1,d7
  3485.     not.w    d7
  3486.     and.w    #7,d7
  3487.     and.w    #$FFF8,d6
  3488.     lsr.w    #3,d6
  3489.  
  3490.     btst    d7,0(a0,d6.w)
  3491.     beq    bitclear4
  3492.  
  3493.     bset    d3,(a1)
  3494.  
  3495. bitclear4    add.w    #1,d1
  3496.     move.w    brtlx,d4
  3497.     add.l    sprwid,d4
  3498.     cmp.w    d4,d1
  3499.     bge    linedone5
  3500.  
  3501.     cmp.w    brbrx,d1
  3502.     bgt    linedone5
  3503.  
  3504.     sub.w    #1,d3
  3505.     bpl    nextbit4
  3506.  
  3507.     add.w    #1,a1
  3508.     bra    nextbyte4
  3509.  
  3510. linedone5    add.w    #1,a1
  3511.  
  3512. planeblank2    move.w    iffheight,d0
  3513.     mulu    bytewid1,d0
  3514.     lea    0(a0,d0.l),a0
  3515.     
  3516.     sub.w    #1,d2
  3517.     bne    nextplane8
  3518.  
  3519.     tst.b    sprmeth
  3520.     bne    binsave
  3521.  
  3522.     cmp.l    #16,sprwid
  3523.     beq    sprwid16c
  3524.     
  3525.     cmp.l    #32,sprwid
  3526.     beq    sprwid32c
  3527.     
  3528.     move.w    copybuff+14,d0
  3529.     move.w    #4,d1
  3530.     lea    sprtxt10,a0
  3531.     bsr    numtohexasc
  3532.     
  3533.     move.w    copybuff+12,d0
  3534.     move.w    #4,d1
  3535.     lea    sprtxt9,a0
  3536.     bsr    numtohexasc
  3537.     
  3538.     move.w    copybuff+10,d0
  3539.     move.w    #4,d1
  3540.     lea    sprtxt8,a0
  3541.     bsr    numtohexasc
  3542.     
  3543.     move.w    copybuff+8,d0
  3544.     move.w    #4,d1
  3545.     lea    sprtxt7,a0
  3546.     bsr    numtohexasc
  3547.     
  3548. sprwid32c    move.w    copybuff+6,d0
  3549.     move.w    #4,d1
  3550.     lea    sprtxt6,a0
  3551.     bsr    numtohexasc
  3552.     
  3553.     move.w    copybuff+4,d0
  3554.     move.w    #4,d1
  3555.     lea    sprtxt5,a0
  3556.     bsr    numtohexasc
  3557.     
  3558. sprwid16c    move.w    copybuff+2,d0
  3559.     move.w    #4,d1
  3560.     lea    sprtxt4,a0
  3561.     bsr    numtohexasc
  3562.     
  3563.     move.w    copybuff,d0
  3564.     move.w    #4,d1
  3565.     lea    sprtxt3,a0
  3566.     bsr    numtohexasc
  3567.     
  3568.     lea    sprtxt2,a0
  3569.     move.l    sprwid,d0
  3570.     divu    #$10,d0
  3571.     mulu    #12,d0
  3572.     lea    0(a0,d0.l),a0
  3573.     move.b    (a0),d6
  3574.     move.b    #10,(a0)+
  3575.     move.l    a0,a2
  3576.     sub.l    #sprtxt1,a2
  3577.     
  3578.     filewrite    handle1,#sprtxt1,a2
  3579.     move.b    d6,-(a0)
  3580.     bra    linewrote
  3581.  
  3582. binsave    move.l    sprwid,d6
  3583.     divu    #8,d6
  3584.     and.l    #$FFFF,d6
  3585.     add.w    d6,d6
  3586.     
  3587.     filewrite    handle1,#copybuff,d6
  3588.     
  3589. linewrote    lea    copybuff,a1
  3590.     move.l    a4,a0
  3591.     add.w    #1,d5
  3592.     cmp.w    brbry,d5
  3593.     ble    nextline10
  3594.     
  3595.     tst.b    sprctrl
  3596.     beq    noctrlend2
  3597.     
  3598.     tst.b    sprmeth
  3599.     bne    sprbinsave2
  3600.     
  3601.     cmp.l    #16,sprwid
  3602.     bne    notwid16c
  3603.     
  3604.     filewrite    handle1,#sprsaveA,#end16save-sprsaveA
  3605.     bra    no4plspr
  3606.  
  3607. notwid16c    cmp.l    #32,sprwid
  3608.     bne    notwid32c
  3609.     
  3610.     filewrite    handle1,#sprsaveB,#end32save-sprsaveB
  3611.     bra    no4plspr
  3612.  
  3613. notwid32c    filewrite    handle1,#sprsaveC,#end64save-sprsaveC
  3614.     bra    no4plspr
  3615.  
  3616. sprbinsave2    move.l    sprwid,d6
  3617.     divu    #8,d6
  3618.     and.l    #$FFFF,d6
  3619.     add.w    d6,d6
  3620.     clr.l    copybuff
  3621.     clr.l    copybuff+4
  3622.     
  3623.     filewrite    handle1,#copybuff,d6
  3624.  
  3625. noctrlend2
  3626. no4plspr    bsr    closefile
  3627.     bra    nomessage1
  3628.  
  3629. savepalbin    tst.b    paltype
  3630.     beq    pal12bit
  3631.     
  3632.     move.w    #1,d0
  3633.     move.w    cdepth,d1
  3634.     lsl.w    d1,d0
  3635.     mulu    #3,d0
  3636.     move.l    handle1,d1
  3637.     move.l    #palstore1,d2
  3638.     move.l    d0,d3
  3639.     move.l    d3,d7
  3640.     jsr    _LVOWrite(a6)
  3641.     cmp.l    d7,d0
  3642.     rts
  3643.  
  3644. pal12bit    move.w    #1,d6
  3645.     move.w    cdepth,d5
  3646.     lsl.w    d5,d6
  3647.     sub.w    #1,d6
  3648.     lea    palstore1,a5
  3649.     
  3650. save12pal    clr.w    d2
  3651.     move.b    (a5)+,d2
  3652.     and.b    #$F0,d2
  3653.     lsl.w    #4,d2
  3654.     or.b    (a5)+,d2
  3655.     and.w    #$FF0,d2
  3656.     lsl.w    #4,d2
  3657.     or.b    (a5)+,d2
  3658.     and.w    #$FFF0,d2
  3659.     lsr.w    #4,d2
  3660.     move.w    d2,store1
  3661.     
  3662.     move.l    handle1,d1
  3663.     move.l    #store1,d2
  3664.     move.l    #2,d3
  3665.     jsr    _LVOWrite(a6)
  3666.     cmp.l    #2,d0
  3667.     bne    palsaveerr
  3668.     
  3669.     dbf    d6,save12pal
  3670.     
  3671.     moveq    #0,d0
  3672.     rts
  3673.  
  3674. palsaveerr    move.l    #-1,d0
  3675.     rts
  3676.  
  3677. palsavesrc    tst.b    paltype
  3678.     beq    pal12bit2
  3679.     
  3680.     move.w    #1,d6
  3681.     move.w    cdepth,d5
  3682.     lsl.w    d5,d6
  3683.     sub.w    #1,d6
  3684.     lea    palstore1,a5
  3685.     
  3686. palwrite    lea    pal24mod1,a0
  3687.     move.b    (a5)+,d0
  3688.     move.w    #2,d1
  3689.     bsr    numtohexasc
  3690.     
  3691.     lea    pal24mod2,a0
  3692.     move.b    (a5)+,d0
  3693.     move.w    #2,d1
  3694.     bsr    numtohexasc
  3695.     
  3696.     lea    pal24mod3,a0
  3697.     move.b    (a5)+,d0
  3698.     move.w    #2,d1
  3699.     bsr    numtohexasc
  3700.     
  3701.     move.l    handle1,d1
  3702.     move.l    #pal24src,d2
  3703.     move.l    #endpal24-pal24src,d3
  3704.     jsr    _LVOWrite(a6)
  3705.     cmp.l    #endpal24-pal24src,d0
  3706.     bne    palsaveerr
  3707.     
  3708.     dbf    d6,palwrite
  3709.     
  3710.     moveq    #0,d0
  3711.     rts
  3712.  
  3713. pal12bit2    move.w    #1,d6
  3714.     move.w    cdepth,d5
  3715.     lsl.w    d5,d6
  3716.     sub.w    #1,d6
  3717.     lea    palstore1,a5
  3718.     
  3719. palwrite2    clr.w    d2
  3720.     move.b    (a5)+,d2
  3721.     and.b    #$F0,d2
  3722.     lsl.w    #4,d2
  3723.     or.b    (a5)+,d2
  3724.     and.w    #$FF0,d2
  3725.     lsl.w    #4,d2
  3726.     or.b    (a5)+,d2
  3727.     and.w    #$FFF0,d2
  3728.     lsr.w    #4,d2
  3729.     
  3730.     move.w    d2,d0
  3731.     move.w    #4,d1
  3732.     lea    pal12mod1,a0
  3733.     bsr    numtohexasc
  3734.     
  3735.     move.l    handle1,d1
  3736.     move.l    #pal12src,d2
  3737.     move.l    #endpal12-pal12src,d3
  3738.     jsr    _LVOWrite(a6)
  3739.     cmp.l    #endpal12-pal12src,d0
  3740.     bne    palsaveerr
  3741.     
  3742.     dbf    d6,palwrite2
  3743.     moveq    #0,d0
  3744.     rts
  3745.  
  3746. palsavecop    move.l    #1,d4
  3747.     move.w    cdepth,d1
  3748.     lsl.l    d1,d4
  3749.     move.w    #$180,d7
  3750.     clr.w    d6
  3751.     clr.w    d5
  3752.     lea    palstore1,a5
  3753.     
  3754. palwrite3    lea    copmod2,a0
  3755.     move.w    d5,d0
  3756.     move.w    #4,d1
  3757.     bsr    numtohexasc
  3758.     
  3759.     lea    copmod1,a0
  3760.     move.w    #3,d1
  3761.     move.w    #$106,d0
  3762.     bsr    numtohexasc
  3763.     
  3764.     move.l    handle1,d1
  3765.     move.l    #copsrc1,d2
  3766.     move.l    #endcop1-copsrc1,d3
  3767.     jsr    _LVOWrite(a6)
  3768.     cmp.l    #endcop1-copsrc1,d0
  3769.     bne    writeerr
  3770.     
  3771. palwrite4    clr.w    d0
  3772.     move.b    (a5)+,d0
  3773.     and.b    #$F0,d0
  3774.     lsl.w    #4,d0
  3775.     or.b    (a5)+,d0
  3776.     and.b    #$F0,d0
  3777.     lsl.w    #4,d0
  3778.     or.b    (a5)+,d0
  3779.     
  3780.     lsr.w    #4,d0
  3781.     lea    copmod2,a0
  3782.     move.w    #4,d1
  3783.     bsr    numtohexasc
  3784.     
  3785.     lea    copmod1,a0
  3786.     move.w    #3,d1
  3787.     move.w    d7,d0
  3788.     bsr    numtohexasc
  3789.     
  3790.     move.l    handle1,d1
  3791.     move.l    #copsrc1,d2
  3792.     move.l    #endcop1-copsrc1,d3
  3793.     jsr    _LVOWrite(a6)
  3794.     cmp.l    #endcop1-copsrc1,d0
  3795.     bne    writeerr
  3796.     
  3797.     add.w    #2,d7
  3798.     add.w    #1,d6
  3799.     sub.w    #1,d4
  3800.     beq    palwrote
  3801.     
  3802.     and.w    #$1F,d6
  3803.     bne    palwrite4
  3804.     
  3805.     move.w    #$180,d7
  3806.     clr.w    d6
  3807.     add.w    #$2000,d5
  3808.     bra    palwrite3
  3809.  
  3810. palwrote    tst.b    paltype
  3811.     beq    palsaved
  3812.     
  3813.     move.l    #1,d4
  3814.     move.w    cdepth,d1
  3815.     lsl.l    d1,d4
  3816.     move.w    #$180,d7
  3817.     move.w    #$200,d5
  3818.     clr.w    d6
  3819.     lea    palstore1,a5
  3820.     
  3821. palwrite5    lea    copmod2,a0
  3822.     move.w    d5,d0
  3823.     move.w    #4,d1
  3824.     bsr    numtohexasc
  3825.     
  3826.     lea    copmod1,a0
  3827.     move.w    #3,d1
  3828.     move.w    #$106,d0
  3829.     bsr    numtohexasc
  3830.     
  3831.     move.l    handle1,d1
  3832.     move.l    #copsrc1,d2
  3833.     move.l    #endcop1-copsrc1,d3
  3834.     jsr    _LVOWrite(a6)
  3835.     cmp.l    #endcop1-copsrc1,d0
  3836.     bne    writeerr
  3837.     
  3838. palwrite6    clr.w    d0
  3839.     move.b    (a5)+,d0
  3840.     and.b    #15,d0
  3841.     lsl.w    #8,d0
  3842.     or.b    (a5)+,d0
  3843.     and.b    #15,d0
  3844.     lsl.b    #4,d0
  3845.     lsl.w    #4,d0
  3846.     or.b    (a5)+,d0
  3847.     lsl.b    #4,d0
  3848.     lsr.w    #4,d0
  3849.     
  3850.     lea    copmod2,a0
  3851.     move.w    #4,d1
  3852.     bsr    numtohexasc
  3853.     
  3854.     lea    copmod1,a0
  3855.     move.w    #3,d1
  3856.     move.w    d7,d0
  3857.     bsr    numtohexasc
  3858.     
  3859.     move.l    handle1,d1
  3860.     move.l    #copsrc1,d2
  3861.     move.l    #endcop1-copsrc1,d3
  3862.     jsr    _LVOWrite(a6)
  3863.     cmp.l    #endcop1-copsrc1,d0
  3864.     bne    writeerr
  3865.     
  3866.     add.w    #2,d7
  3867.     add.w    #1,d6
  3868.     sub.w    #1,d4
  3869.     beq    palsaved
  3870.     
  3871.     and.w    #$1F,d6
  3872.     bne    palwrite6
  3873.     
  3874.     move.w    #$180,d7
  3875.     clr.w    d6
  3876.     add.w    #$2000,d5
  3877.     bra    palwrite5
  3878.  
  3879. palsaved    bsr    closefile
  3880.     rts
  3881.  
  3882. writeerr    bsr    closeLSwin
  3883.     bsr    closefile
  3884.  
  3885.     lea    bodyfmt6,a1
  3886.     lea    gadfmt6,a2
  3887.     lea    taglist,a0
  3888.     lea    0,a3
  3889.     lea    0,a4
  3890.     move.l    reqtbase,a6
  3891.     jsr    _LVOrtEZRequestA(a6)
  3892.     bsr    fakebpl
  3893.     bra    nomessage1
  3894.  
  3895.  
  3896. prefs    move.l    intuibase,a6
  3897.     jsr    _LVOWBenchToFront(a6)
  3898.     
  3899.     lea    newprefswin,a0
  3900.     jsr    _LVOOpenWindow(a6)
  3901.     move.l    d0,prefswin
  3902.     beq    noprefswin
  3903.     
  3904.     moveq    #0,d0
  3905.     bsr    settxt
  3906.     
  3907.     lea    newprefs,a0
  3908.     lea    oldprefs,a1
  3909.     move.w    #endnewprefs-newprefs-1,d0
  3910. storeprefs    move.b    (a0)+,(a1)+
  3911.     dbf    d0,storeprefs
  3912.     
  3913. nomessage2    move.l    #1,d1
  3914.     move.l    dosbase,a6
  3915.     jsr    _LVODelay(a6)
  3916.     
  3917.     move.l    prefswin,a0
  3918.     move.l    wd_UserPort(a0),a0
  3919.     move.l    4.w,a6
  3920.     jsr    _LVOGetMsg(a6)
  3921.     tst.l    d0
  3922.     beq    nomessage2
  3923.     
  3924.     move.l    d0,message
  3925.     move.l    d0,a1
  3926.     jsr    _LVOReplyMsg(a6)
  3927.     
  3928.     move.l    message,a0
  3929.     move.l    $14(a0),d0
  3930.     cmp.l    #CLOSEWINDOW,d0
  3931.     beq    prefsclose
  3932.     
  3933.     cmp.l    #GADGETUP,d0
  3934.     bne    nomessage2
  3935.     
  3936.     move.l    $1C(a0),a1
  3937.  
  3938.     lea    prefstable,a0
  3939. findrout    cmp.l    (a0)+,a1
  3940.     beq    foundrout
  3941.     add.l    #4,a0
  3942.     tst.l    (a0)
  3943.     bne    findrout
  3944.     bra    nomessage2
  3945.  
  3946. foundrout    move.l    (a0)+,a0
  3947.     jsr    (a0)
  3948.     bra    nomessage2
  3949.  
  3950. prefsclose    move.l    scrpt1,a0
  3951.     move.l    intuibase,a6
  3952.     jsr    _LVOScreenToFront(a6)
  3953.     
  3954.     move.l    prefswin,a0
  3955.     jsr    _LVOCloseWindow(a6)
  3956.     bra    nomessage1
  3957.  
  3958. prefsbplmeth
  3959.     add.b    #1,bplmeth
  3960.     and.b    #1,bplmeth
  3961.     move.l    #1,d0
  3962.     bsr    settxt
  3963.     rts
  3964.  
  3965. prefspalinfo
  3966.     add.b    #1,palinfo
  3967.     cmp.b    #3,palinfo
  3968.     blt    noloop1
  3969.     clr.b    palinfo
  3970. noloop1    move.l    #2,d0
  3971.     bsr    settxt
  3972.     rts
  3973.  
  3974. prefspaltype
  3975.     add.b    #1,paltype
  3976.     and.b    #1,paltype
  3977.     move.l    #3,d0
  3978.     bsr    settxt
  3979.     rts
  3980.  
  3981. prefspalmeth
  3982.     add.b    #1,palmeth
  3983.     cmp.b    #3,palmeth
  3984.     blt    noloop2
  3985.     clr.b    palmeth
  3986. noloop2    move.l    #4,d0
  3987.     bsr    settxt
  3988.     rts
  3989.  
  3990. prefssprmeth
  3991.     add.b    #1,sprmeth
  3992.     and.b    #1,sprmeth
  3993.     move.l    #5,d0
  3994.     bsr    settxt
  3995.     rts
  3996.  
  3997. prefssprctrl
  3998.     add.b    #1,sprctrl
  3999.     and.b    #1,sprctrl
  4000.     move.l    #6,d0
  4001.     bsr    settxt
  4002.     rts
  4003.  
  4004. prefssprdepth
  4005.     add.b    #1,sprdepth
  4006.     and.b    #1,sprdepth
  4007.     move.l    #7,d0
  4008.     bsr    settxt
  4009.     rts
  4010.  
  4011. prefsextrablit
  4012.     add.b    #1,extrablit
  4013.     cmp.b    #3,extrablit
  4014.     blt    noloop3
  4015.     clr.b    extrablit
  4016. noloop3    move.l    #8,d0
  4017.     bsr    settxt
  4018.     rts
  4019.  
  4020. prefscomp    add.b    #1,iffcomp
  4021.     and.b    #1,iffcomp
  4022.     move.l    #9,d0
  4023.     bsr    settxt
  4024.     rts
  4025.  
  4026. undoprefs    lea    oldprefs,a0
  4027.     lea    newprefs,a1
  4028.     move.w    #endnewprefs-newprefs-1,d0
  4029. undoloop    move.b    (a0)+,(a1)+
  4030.     dbf    d0,undoloop
  4031.     moveq    #0,d0
  4032.     bsr    settxt
  4033. prefsquit    move.l    (sp)+,d0
  4034.     bra    prefsclose
  4035.  
  4036. prefssave    move.l    req1,a0
  4037.     move.l    rtfi_Dir(a0),a0
  4038.     
  4039.     lea    loaddir,a1
  4040.     move.w    #256-1,d0
  4041. copy1    move.b    (a0)+,(a1)+
  4042.     dbf    d0,copy1
  4043.     
  4044.     move.l    req2,a0
  4045.     move.l    rtfi_Dir(a0),a0
  4046.     
  4047.     lea    savedir,a1
  4048.     move.w    #256-1,d0
  4049. copy2    move.b    (a0)+,(a1)+
  4050.     dbf    d0,copy2
  4051.     
  4052.     move.l    #prefsname,d1
  4053.     move.l    #MODE_NEWFILE,d2
  4054.     move.l    dosbase,a6
  4055.     jsr    _LVOOpen(a6)
  4056.     tst.l    d0
  4057.     beq    noprefssave
  4058.     
  4059.     move.l    d0,d1
  4060.     move.l    d0,d6
  4061.     move.l    #newprefs,d2
  4062.     move.l    #endnewprefs-newprefs,d3
  4063.     jsr    _LVOWrite(a6)
  4064.     
  4065.     move.l    d0,d5
  4066.     move.l    d6,d1
  4067.     jsr    _LVOClose(a6)
  4068.     
  4069.     cmp.l    #endnewprefs-newprefs,d5
  4070.     bne    noprefssave
  4071.     
  4072.     move.l    (sp)+,d0
  4073.     bra    prefsclose
  4074.  
  4075. noprefssave    lea    bodyfmt8,a1
  4076.     lea    gadfmt8,a2
  4077.     lea    taglist,a0
  4078.     lea    0,a3
  4079.     lea    0,a4
  4080.     move.l    reqtbase,a6
  4081.     jsr    _LVOrtEZRequestA(a6)
  4082.     move.l    (sp)+,d0
  4083.     bra    prefsclose
  4084.  
  4085. settxt    move.l    d0,-(sp)
  4086.     lea    savemethtxt,a0
  4087.     move.b    bplmeth,d0
  4088.     ext.w    d0
  4089.     lsl.w    #2,d0
  4090.     move.l    0(a0,d0.w),a0
  4091.     lea    ptxt1a,a1
  4092.     rept    11
  4093.     move.b    (a0)+,(a1)+
  4094.     endr
  4095.     
  4096.     lea    palinfotxt,a0
  4097.     move.b    palinfo,d0
  4098.     ext.w    d0
  4099.     lsl.w    #2,d0
  4100.     move.l    0(a0,d0.w),a0
  4101.     lea    ptxt2a,a1
  4102.  
  4103.     rept    6
  4104.     move.b    (a0)+,(a1)+
  4105.     endr
  4106.     
  4107.     lea    paltypetxt,a0
  4108.     move.b    paltype,d0
  4109.     ext.w    d0
  4110.     lsl.w    #2,d0
  4111.     move.l    0(a0,d0.w),a0
  4112.     lea    ptxt3a,a1
  4113.     
  4114.     rept    6
  4115.     move.b    (a0)+,(a1)+
  4116.     endr
  4117.     
  4118.     lea    palmethtxt,a0
  4119.     move.b    palmeth,d0
  4120.     ext.w    d0
  4121.     lsl.w    #2,d0
  4122.     move.l    0(a0,d0.w),a0
  4123.     lea    ptxt4a,a1
  4124.     
  4125.     rept    13
  4126.     move.b    (a0)+,(a1)+
  4127.     endr
  4128.     
  4129.     lea    sprmethtxt,a0
  4130.     move.b    sprmeth,d0
  4131.     ext.w    d0
  4132.     lsl.w    #2,d0
  4133.     move.l    0(a0,d0.w),a0
  4134.     lea    ptxt5a,a1
  4135.     
  4136.     rept    6
  4137.     move.b    (a0)+,(a1)+
  4138.     endr
  4139.     
  4140.     lea    sprctrltxt,a0
  4141.     move.b    sprctrl,d0
  4142.     ext.w    d0
  4143.     lsl.w    #2,d0
  4144.     move.l    0(a0,d0.w),a0
  4145.     lea    ptxt6a,a1
  4146.     
  4147.     rept    3
  4148.     move.b    (a0)+,(a1)+
  4149.     endr
  4150.     
  4151.     lea    sprdeptxt,a0
  4152.     move.b    sprdepth,d0
  4153.     ext.w    d0
  4154.     lsl.w    #2,d0
  4155.     move.l    0(a0,d0.w),a0
  4156.     lea    ptxt7a,a1
  4157.     
  4158.     rept    10
  4159.     move.b    (a0)+,(a1)+
  4160.     endr
  4161.     
  4162.     lea    xtrablittxt,a0
  4163.     move.b    extrablit,d0
  4164.     ext.w    d0
  4165.     lsl.w    #2,d0
  4166.     move.l    0(a0,d0.w),a0
  4167.     lea    ptxt8a,a1
  4168.     
  4169.     rept    5
  4170.     move.b    (a0)+,(a1)+
  4171.     endr
  4172.     
  4173.     lea    iffcomptxt,a0
  4174.     move.b    iffcomp,d0
  4175.     ext.w    d0
  4176.     lsl.w    #2,d0
  4177.     move.l    0(a0,d0.w),a0
  4178.     lea    ptxt9a,a1
  4179.     
  4180.     rept    10
  4181.     move.b    (a0)+,(a1)+
  4182.     endr
  4183.     
  4184.     move.l    (sp)+,d0
  4185.     bne    updategad
  4186.     
  4187.     move.l    gfxbase,a6
  4188.     move.l    scrpt1,a0
  4189.     lea    sc_ViewPort(a0),a0
  4190.     jsr    _LVOWaitBOVP(a6)
  4191.     move.l    intuibase,a6
  4192.     lea    prefsgad1,a0
  4193.     move.l    prefswin,a1
  4194.     sub.l    a2,a2
  4195.     jsr    _LVORefreshGadgets(a6)
  4196.     rts
  4197.  
  4198. updategad    lea    prefsgad1,a0
  4199. findpgad    sub.l    #1,d0
  4200.     beq    pgadfound
  4201.     move.l    (a0),a0
  4202.     bra    findpgad
  4203.  
  4204. pgadfound    move.l    a0,-(sp)
  4205.     move.l    gfxbase,a6
  4206.     move.l    scrpt1,a0
  4207.     lea    sc_ViewPort(a0),a0
  4208.     jsr    _LVOWaitBOVP(a6)
  4209.     
  4210.     move.l    (sp)+,a0
  4211.     
  4212.     move.l    intuibase,a6
  4213.     move.l    prefswin,a1
  4214.     sub.l    a2,a2
  4215.     move.l    #1,d0
  4216.     jsr    _LVORefreshGList(a6)
  4217.     rts
  4218.  
  4219. noprefswin    lea    bodyfmt7,a1
  4220.     lea    gadfmt7,a2
  4221.     lea    taglist,a0
  4222.     lea    0,a3
  4223.     lea    0,a4
  4224.     move.l    reqtbase,a6
  4225.     jsr    _LVOrtEZRequestA(a6)
  4226.     bra    nomessage1
  4227.  
  4228. about    lea    menupal,a1
  4229.     move.l    scrpt1,a0
  4230.     lea    sc_ViewPort(a0),a0
  4231.     move.l    #4,d0
  4232.     move.l    gfxbase,a6
  4233.     jsr    _LVOLoadRGB4(a6)
  4234.     
  4235.     lea    bodyfmt1,a1
  4236.     lea    gadfmt1,a2
  4237.     lea    taglist,a0
  4238.     lea    0,a3
  4239.     lea    0,a4
  4240.     move.l    reqtbase,a6
  4241.     jsr    _LVOrtEZRequestA(a6)
  4242.     
  4243.     bsr    fakebpl
  4244.     bra    nomessage1
  4245.  
  4246. initbrush    tst.w    brtlx
  4247.     bge    brushset4
  4248.     tst.w    brtly
  4249.     bge    brushset4
  4250.     tst.w    brbrx
  4251.     bge    brushset4
  4252.     tst.w    brbry
  4253.     bge    brushset4
  4254.     rts
  4255.  
  4256. brushset4    bsr    drawbrushgrid
  4257.     move.w    #$FFFF,brtlx
  4258.     move.w    #$FFFF,brtly
  4259.     move.w    #$FFFF,brbrx
  4260.     move.w    #$FFFF,brbry
  4261.     sf    brushon
  4262.     bsr    updatecoords
  4263.     rts
  4264.  
  4265. brush    bsr    initbrush
  4266.     bra    nomessage1
  4267.  
  4268. setpalette    lea    taglist2,a0
  4269.     lea    palreqtxt,a2
  4270.     sub.l    a3,a3
  4271.     move.l    reqtbase,a6
  4272.     jsr    _LVOrtPaletteRequestA(a6)
  4273.     
  4274.     tst.l    gfx39base
  4275.     beq    nogfx39c
  4276.     move.l    scrpt1,a0
  4277.     lea    sc_ViewPort(a0),a0
  4278.     move.l    vp_ColorMap(a0),a0    ;get color map address
  4279.     moveq    #0,d0        ;first color
  4280.     move.l    #1,d1
  4281.     move.w    iffdepth,d2
  4282.     lsl.l    d2,d1
  4283.     lea    palstore2,a1
  4284.     move.l    gfx39base,a6
  4285.     jsr    _LVOGetRGB32(a6)
  4286.     bra    gotpalette
  4287.  
  4288. nogfx39c    move.l    gfxbase,a6
  4289.     moveq    #0,d5
  4290.     move.l    #1,d6
  4291.     move.w    iffdepth,d7
  4292.     lsl.l    d7,d6
  4293.     sub.l    #1,d6
  4294.     lea    palstore2,a5
  4295.     
  4296. getpalette    move.l    scrpt1,a0
  4297.     lea    sc_ViewPort(a0),a0
  4298.     move.l    vp_ColorMap(a0),a0    ;get color map address
  4299.     move.l    d5,d0
  4300.     jsr    _LVOGetRGB4(a6)
  4301.     move.w    d0,d1
  4302.  
  4303.     and.l    #$f00,d1
  4304.     lsl.w    #4,d1
  4305.     move.w    d1,d2
  4306.     rept    3
  4307.     lsr.w    #4,d2
  4308.     or.w    d2,d1
  4309.     endr
  4310.     move.w    d1,d2
  4311.     swap    d2
  4312.     clr.w    d2
  4313.     or.l    d2,d1
  4314.     move.l    d1,(a5)+
  4315.  
  4316.     move.w    d0,d1
  4317.     and.l    #$0f0,d1
  4318.     lsl.w    #8,d1
  4319.     move.w    d1,d2
  4320.     rept    3
  4321.     lsr.w    #4,d2
  4322.     or.w    d2,d1
  4323.     endr
  4324.     move.w    d1,d2
  4325.     swap    d2
  4326.     clr.w    d2
  4327.     or.l    d2,d1
  4328.     move.l    d1,(a5)+
  4329.  
  4330.     move.w    d0,d1
  4331.     and.l    #$00f,d1
  4332.     ror.w    #4,d1
  4333.     move.w    d1,d2
  4334.     rept    3
  4335.     lsr.w    #4,d2
  4336.     or.w    d2,d1
  4337.     endr
  4338.     move.w    d1,d2
  4339.     swap    d2
  4340.     clr.w    d2
  4341.     or.l    d2,d1
  4342.     move.l    d1,(a5)+
  4343.     
  4344.     add.l    #1,d5
  4345.     dbf    d6,getpalette
  4346.  
  4347. gotpalette    lea    palstore2,a0
  4348.     lea    palstore1,a1
  4349.     move.l    #1,d0
  4350.     move.w    iffdepth,d1
  4351.     lsl.l    d1,d0
  4352.     mulu    #3,d0
  4353.     sub.l    #1,d0
  4354.     
  4355. remakepal1    move.l    (a0)+,d2
  4356.     swap    d2
  4357.     lsr.w    #8,d2
  4358.     move.b    d2,(a1)+
  4359.     dbf    d0,remakepal1
  4360.  
  4361.     bsr    fakebpl    
  4362.     rts
  4363.  
  4364. palette    bsr    setpalette
  4365.     bra    nomessage1
  4366.  
  4367. savepal    clr.b    filename
  4368.     move.l    req2,a1
  4369.     lea    filename,a2
  4370.     lea    savpaltxt,a3
  4371.     lea    tags2,a0
  4372.     move.l    reqtbase,a6
  4373.     jsr    _LVOrtFileRequestA(a6)
  4374.     tst.l    d0
  4375.     beq    nomessage1
  4376.     
  4377.     move.l    req2,a1
  4378.     move.l    rtfi_Dir(a1),d1
  4379.     move.l    #SHARED_LOCK,d2
  4380.     move.l    dosbase,a6
  4381.     jsr    _LVOLock(a6)
  4382.     move.l    d0,filelock
  4383.     beq    writeerr
  4384.     
  4385.     move.l    d0,d1
  4386.     jsr    _LVOCurrentDir(a6)
  4387.     move.l    d0,olddirlock
  4388.     
  4389.     move.l    #filename,d1
  4390.     move.l    #MODE_NEWFILE,d2
  4391.     move.l    dosbase,a6
  4392.     jsr    _LVOOpen(a6)
  4393.     move.l    d0,handle1
  4394.     tst.l    d0
  4395.     beq    writeerr
  4396.     move.l    d0,handle1
  4397.     
  4398.     tst.b    palmeth
  4399.     bne    notsrcsave
  4400.     
  4401.     bsr    palsavesrc
  4402.     bne    writeerr
  4403.     
  4404.     bra    palsaved2
  4405.  
  4406. notsrcsave    cmp.b    #1,palmeth
  4407.     bne    notcopsave
  4408.     
  4409.     bsr    palsavecop
  4410.     bne    writeerr
  4411.     
  4412.     bra    palsaved2
  4413.  
  4414. notcopsave    bsr    savepalbin
  4415.     bne    writeerr
  4416.     
  4417. palsaved2    bsr    closefile
  4418.     bra    nomessage1
  4419.  
  4420.  
  4421. savepicmask    clr.b    filename
  4422.     move.l    req2,a1
  4423.     lea    filename,a2
  4424.     lea    savmasktxt,a3
  4425.     lea    tags2,a0
  4426.     move.l    reqtbase,a6
  4427.     jsr    _LVOrtFileRequestA(a6)
  4428.     tst.l    d0
  4429.     beq    nomessage1
  4430.     
  4431.     lea    menupal,a1
  4432.     move.l    scrpt1,a0
  4433.     lea    sc_ViewPort(a0),a0
  4434.     move.l    #4,d0
  4435.     move.l    gfxbase,a6
  4436.     jsr    _LVOLoadRGB4(a6)
  4437.  
  4438.     move.l    #mwintitle,windowtitle
  4439.     lea    newloadwin,a0
  4440.     move.l    intuibase,a6
  4441.     jsr    _LVOOpenWindow(a6)
  4442.     move.l    d0,lswindow
  4443.     
  4444.     bsr    drawLSwin
  4445.  
  4446.     move.l    req2,a1
  4447.     move.l    rtfi_Dir(a1),d1
  4448.     move.l    #SHARED_LOCK,d2
  4449.     move.l    dosbase,a6
  4450.     jsr    _LVOLock(a6)
  4451.     move.l    d0,filelock
  4452.     beq    writeerr
  4453.     
  4454.     move.l    d0,d1
  4455.     jsr    _LVOCurrentDir(a6)
  4456.     move.l    d0,olddirlock
  4457.     
  4458.     move.l    #filename,d1
  4459.     move.l    #MODE_NEWFILE,d2
  4460.     move.l    dosbase,a6
  4461.     jsr    _LVOOpen(a6)
  4462.     tst.l    d0
  4463.     beq    writeerr
  4464.     move.l    d0,handle1
  4465.     
  4466.     move.l    pladdr,a0
  4467.     move.w    iffheight,d0
  4468.     mulu    bytewid1,d0
  4469.     move.w    iffheight,d4
  4470.     lea    copybuff,a5
  4471.     
  4472. nextline11    move.w    d4,lineno
  4473.     move.w    iffheight,maxline
  4474.     bsr    updateLSwin
  4475.  
  4476.     move.w    bytewid1,d2
  4477.     lsr.l    #1,d2
  4478.     cmp.b    #1,extrablit
  4479.     bne    nobuffend1
  4480.     
  4481.     clr.w    (a5)+
  4482.     cmp.l    #copybuffend,a5
  4483.     bne    nobuffend1
  4484.     
  4485.     lea    copybuff,a5
  4486.     movem.l    d0/d2/a0,-(sp)
  4487.     move.l    handle1,d1
  4488.     move.l    #copybuff,d2
  4489.     move.l    #copybuffend-copybuff,d3
  4490.     jsr    _LVOWrite(a6)
  4491.     movem.l    (sp)+,d1/d2/a0
  4492.     cmp.l    #copybuffend-copybuff,d0
  4493.     bne    writeerr
  4494.     move.w    d1,d0
  4495.     
  4496. nobuffend1    move.w    cdepth,d1
  4497.     sub.w    #1,d1
  4498.     clr.w    d7
  4499.     move.l    a0,-(sp)
  4500.     
  4501. skipplanes    or.w    (a0),d7
  4502.     lea    0(a0,d0.l),a0
  4503.     dbf    d1,skipplanes
  4504.     
  4505.     move.l    (sp)+,a0
  4506.     
  4507.     add.l    #2,a0
  4508.     not.w    d7
  4509.     move.w    d7,(a5)+
  4510.     cmp.l    #copybuffend,a5
  4511.     bne    nobuffend2
  4512.     
  4513.     lea    copybuff,a5
  4514.     movem.l    d0/d2/a0,-(sp)
  4515.     move.l    handle1,d1
  4516.     move.l    #copybuff,d2
  4517.     move.l    #copybuffend-copybuff,d3
  4518.     jsr    _LVOWrite(a6)
  4519.     movem.l    (sp)+,d1/d2/a0
  4520.     cmp.l    #copybuffend-copybuff,d0
  4521.     bne    writeerr
  4522.     move.w    d1,d0
  4523.     
  4524. nobuffend2    sub.l    #1,d2
  4525.     bne    nobuffend1
  4526.     
  4527.     cmp.b    #2,extrablit
  4528.     bne    nobuffend3
  4529.     
  4530.     clr.w    (a5)+
  4531.     cmp.l    #copybuffend,a5
  4532.     bne    nobuffend3
  4533.     
  4534.     lea    copybuff,a5
  4535.     movem.l    d0/d2/a0,-(sp)
  4536.     move.l    handle1,d1
  4537.     move.l    #copybuff,d2
  4538.     move.l    #copybuffend-copybuff,d3
  4539.     jsr    _LVOWrite(a6)
  4540.     movem.l    (sp)+,d1/d2/a0
  4541.     cmp.l    #copybuffend-copybuff,d0
  4542.     bne    writeerr
  4543.     move.w    d1,d0
  4544.     
  4545. nobuffend3    sub.w    #1,d4
  4546.     bne    nextline11
  4547.     
  4548.     movem.l    d0/d2/a0,-(sp)
  4549.     move.l    handle1,d1
  4550.     move.l    #copybuff,d2
  4551.     move.l    a5,d3
  4552.     sub.l    #copybuff,d3
  4553.     move.l    d3,d6
  4554.     jsr    _LVOWrite(a6)
  4555.     movem.l    (sp)+,d1/d2/a0
  4556.     cmp.l    d6,d0
  4557.     bne    writeerr
  4558.     
  4559.     bsr    closeLSwin
  4560.     bsr    closefile
  4561.     bsr    fakebpl
  4562.     bra    nomessage1
  4563.  
  4564. savebrmask    tst.w    brtlx
  4565.     bge    brushset5
  4566.     tst.w    brbrx
  4567.     bge    brushset5
  4568.     tst.w    brtly
  4569.     bge    brushset5
  4570.     tst.w    brbry
  4571.     bge    brushset5
  4572.     bra    nomessage1
  4573.  
  4574. brushset5    clr.b    filename
  4575.     move.l    req2,a1
  4576.     lea    filename,a2
  4577.     lea    savmasktxt,a3
  4578.     lea    tags2,a0
  4579.     move.l    reqtbase,a6
  4580.     jsr    _LVOrtFileRequestA(a6)
  4581.     tst.l    d0
  4582.     beq    nomessage1
  4583.     
  4584.     lea    menupal,a1
  4585.     move.l    scrpt1,a0
  4586.     lea    sc_ViewPort(a0),a0
  4587.     move.l    #4,d0
  4588.     move.l    gfxbase,a6
  4589.     jsr    _LVOLoadRGB4(a6)
  4590.  
  4591.     move.l    #mwintitle,windowtitle
  4592.     lea    newloadwin,a0
  4593.     move.l    intuibase,a6
  4594.     jsr    _LVOOpenWindow(a6)
  4595.     move.l    d0,lswindow
  4596.     
  4597.     bsr    drawLSwin
  4598.  
  4599.     move.l    req2,a1
  4600.     move.l    rtfi_Dir(a1),d1
  4601.     move.l    #SHARED_LOCK,d2
  4602.     move.l    dosbase,a6
  4603.     jsr    _LVOLock(a6)
  4604.     move.l    d0,filelock
  4605.     beq    writeerr
  4606.     
  4607.     move.l    d0,d1
  4608.     jsr    _LVOCurrentDir(a6)
  4609.     move.l    d0,olddirlock
  4610.     
  4611.     move.l    #filename,d1
  4612.     move.l    #MODE_NEWFILE,d2
  4613.     move.l    dosbase,a6
  4614.     jsr    _LVOOpen(a6)
  4615.     tst.l    d0
  4616.     beq    writeerr
  4617.     move.l    d0,handle1
  4618.     
  4619.     move.l    pladdr,a0
  4620.     lea    copybuff,a1
  4621.     move.w    brtly,d5
  4622.     move.l    a0,a4
  4623.     
  4624. nextline12    move.w    brbry,lineno
  4625.     sub.w    d5,lineno
  4626.     move.w    brbry,maxline
  4627.     move.w    brtly,d7
  4628.     sub.w    d7,maxline
  4629.     bsr    updateLSwin
  4630.  
  4631.     lea    copybuff,a2
  4632.     move.w    #$FF,d7
  4633. clear1    clr.l    (a2)+
  4634.     dbf    d7,clear1
  4635.     
  4636.     move.w    cdepth,d2
  4637.     move.w    d5,d3
  4638.     mulu    bytewid1,d3
  4639.     lea    0(a0,d3.w),a0
  4640.     
  4641. nextplane10    lea    copybuff,a1
  4642.     move.w    brtlx,d1
  4643. nextbyte5    move.w    #7,d3
  4644. nextbit5    move.w    d1,d6
  4645.     move.w    d1,d7
  4646.     not.w    d7
  4647.     and.w    #7,d7
  4648.     and.w    #$FFF8,d6
  4649.     lsr.w    #3,d6
  4650.     btst    d7,0(a0,d6.w)
  4651.     beq    bitclear5
  4652.     
  4653.     bset    d3,(a1)
  4654.     
  4655. bitclear5    add.w    #1,d1
  4656.  
  4657.     cmp.w    brbrx,d1
  4658.     bgt    linedone6
  4659.     
  4660.     sub.w    #1,d3
  4661.     bpl    nextbit5
  4662.     
  4663.     add.w    #1,a1
  4664.     bra    nextbyte5
  4665.  
  4666. linedone6    move.w    iffheight,d0
  4667.     mulu    bytewid1,d0
  4668.     lea    0(a0,d0.w),a0
  4669.     
  4670.     sub.w    #1,d2
  4671.     bne    nextplane10
  4672.     
  4673.     cmp.b    #1,extrablit
  4674.     bne    noblitL6
  4675.     
  4676.     clr.w    store1
  4677.     filewrite    handle1,#store1,#2
  4678.     
  4679. noblitL6    add.l    #1,a1
  4680.     clr.b    (a1)
  4681.     sub.l    #copybuff,a1
  4682.     move.l    a1,d0
  4683.     add.l    #1,d0
  4684.     and.l    #$fffffffe,d0
  4685.     
  4686.     filewrite    handle1,#copybuff,d0
  4687.     
  4688.     cmp.b    #2,extrablit
  4689.     bne    noblitR6
  4690.  
  4691.     clr.w    store1
  4692.     filewrite    handle1,#store1,#2
  4693.     
  4694. noblitR6    move.l    a4,a0
  4695.     add.w    #1,d5
  4696.     cmp.w    brbry,d5
  4697.     ble    nextline12
  4698.     
  4699.     bsr    closeLSwin
  4700.     bsr    closefile
  4701.     bsr    fakebpl
  4702.     bra    nomessage1
  4703.  
  4704. screenmode    lea    menupal,a1
  4705.     move.l    scrpt1,a0
  4706.     lea    sc_ViewPort(a0),a0
  4707.     move.l    #4,d0
  4708.     move.l    gfxbase,a6
  4709.     jsr    _LVOLoadRGB4(a6)
  4710.     
  4711.     move.l    reqtbase,a6
  4712.     move.l    #RT_SCREENMODEREQ,d0
  4713.     sub.l    a0,a0
  4714.     ;lea    sc_tags1,a0
  4715.     jsr    _LVOrtAllocRequestA(a6)
  4716.     move.l    d0,d7
  4717.     beq    noscreq
  4718.     
  4719.     move.l    d7,a1
  4720.     lea    sc_tags3,a0
  4721.     jsr    _LVOrtChangeReqAttrA(a6)
  4722.     
  4723.     move.l    d7,a1
  4724.     lea    wintit,a3
  4725.     lea    sc_tags2,a0
  4726.     jsr    _LVOrtScreenModeRequestA(a6)
  4727.     
  4728.     tst.l    d0
  4729.     beq    noscreq
  4730.     
  4731. screntry    move.l    d7,a0
  4732.     move.l    rtsc_DisplayID(a0),d0
  4733.     move.l    d0,scrvmodes
  4734.     move.l    d0,iffcamg
  4735.  
  4736.     move.w    rtsc_DisplayWidth(a0),scrwid
  4737.     move.w    scrwid,winwidth
  4738.     move.w    scrwid,pagewid
  4739.     move.w    rtsc_DisplayHeight(a0),scrht
  4740.     move.w    scrht,winheight
  4741.     move.w    scrht,pageht
  4742.     sub.w    #22,winheight
  4743.     
  4744.     move.l    d7,a1
  4745.     jsr    _LVOrtFreeRequest(a6)
  4746.     
  4747.     tst.l    winpt1
  4748.     beq    nowin
  4749.     
  4750.     move.l    intuibase,a6
  4751.     move.l    winpt1,a0
  4752.     jsr    _LVOClearMenuStrip(a6)
  4753.     
  4754.     move.l    winpt1,a0
  4755.     jsr    _LVOCloseWindow(a6)
  4756.     clr.l    winpt1
  4757.     
  4758. nowin    tst.l    scrpt1
  4759.     beq    noscr
  4760.     move.l    scrpt1,a0
  4761.     jsr    _LVOCloseScreen(a6)
  4762.     clr.l    scrpt1
  4763.     
  4764. noscr    move.l    intuibase,a6
  4765.     lea    newscreen,a0
  4766.     jsr    _LVOOpenScreen(a6)
  4767.     tst.l    d0
  4768.     beq    noram
  4769.     move.l    d0,scrpt1
  4770.     move.l    d0,scrpt2
  4771.     move.l    d0,scrpt3
  4772.     move.l    d0,scrpt4
  4773.     ;move.l    d0,scrpt5
  4774.     
  4775.     move.w    iffdepth,cdepth
  4776.     move.w    cdepth,d0
  4777.     move.w    #1,d1
  4778.     lea    depthASCII,a0
  4779.     bsr    numtohexasc
  4780.     
  4781.     lea    newwindow,a0
  4782.     move.l    intuibase,a6
  4783.     jsr    _LVOOpenWindow(a6)
  4784.     move.l    d0,winpt1
  4785.     move.l    d0,winpt2
  4786.     move.l    d0,winpt3
  4787.     move.l    d0,winpt4
  4788.     beq    noram
  4789.     
  4790.     move.w    pageht,d0
  4791.     sub.w    #$32,d0
  4792.     lsr.w    #1,d0
  4793.     move.w    d0,loadwiny
  4794.     move.w    pagewid,d0
  4795.     sub.w    #$118,d0
  4796.     lsr.w    #1,d0
  4797.     move.w    d0,loadwinx
  4798.     
  4799.     move.l    winpt1,a0
  4800.     lea    menu1,a1
  4801.     move.l    intuibase,a6
  4802.     jsr    _LVOSetMenuStrip(a6)
  4803.     
  4804.     move.l    winpt1,a0
  4805.     lea    mousept,a1
  4806.     move.w    #15,d0
  4807.     move.w    #15,d1
  4808.     move.w    #-8,d2
  4809.     move.w    #-7,d3
  4810.     jsr    _LVOSetPointer(a6)
  4811.     
  4812.     move.l    winpt1,a1
  4813.     move.l    wd_RPort(a1),a1
  4814.     move.b    #RP_COMPLEMENT,d0
  4815.     move.l    gfxbase,a6
  4816.     jsr    _LVOSetDrMd(a6)
  4817.     
  4818.     move.w    #$FFFF,brtlx
  4819.     move.w    #$FFFF,brtly
  4820.     move.w    #$FFFF,brbrx
  4821.     move.w    #$FFFF,brbry
  4822.     sf    brushon
  4823.     bsr    updatecoords
  4824.     bsr    fakebpl
  4825.     bra    doblit
  4826. noscreq    bsr    fakebpl
  4827.     bra    nomessage1
  4828.  
  4829. filterfunc    move.l    iffcamg,d0
  4830.     move.l    a1,d1
  4831.     
  4832.     and.l    #~MONITOR_ID_MASK,d0
  4833.     and.l    #~MONITOR_ID_MASK,d1
  4834.     
  4835.     move.l    d0,d2
  4836.     move.l    d1,d3
  4837.     and.l    #HAM_KEY,d2
  4838.     and.l    #HAM_KEY,d3
  4839.     cmp.l    d2,d3
  4840.     bne    exclude
  4841.     
  4842.     move.l    d0,d2
  4843.     move.l    d1,d3
  4844.     and.l    #EXTRAHALFBRITE_KEY,d2
  4845.     and.l    #EXTRAHALFBRITE_KEY,d3
  4846.     cmp.l    d2,d3
  4847.     bne    exclude
  4848.     bra    include
  4849.     
  4850. exclude    moveq    #0,d0
  4851.     rts
  4852.     
  4853. include    move.l    #-1,d0
  4854.     rts
  4855.  
  4856. ;----------------------------------------------------------
  4857.  
  4858. drawLSwin    move.l    lswindow,d0
  4859.     tst.l    d0
  4860.     beq    noLSwin00
  4861.     move.l    d0,a1
  4862.     
  4863.     move.l    wd_RPort(a1),a1
  4864.     move.l    #2,d0
  4865.     move.l    gfxbase,a6
  4866.     jsr    _LVOSetAPen(a6)
  4867.     
  4868.     move.l    lswindow,a0
  4869.     move.l    wd_RPort(a0),a0
  4870.     lea    intuiloadtxt,a1
  4871.     move.l    #11,d0
  4872.     move.l    #20,d1
  4873.     move.l    intuibase,a6
  4874.     jsr    _LVOPrintIText(a6)
  4875.     
  4876.     move.l    lswindow,a1
  4877.     move.l    wd_RPort(a1),a1
  4878.     move.l    #11,d0
  4879.     move.l    #30,d1
  4880.     move.l    #269,d2
  4881.     move.l    #40,d3
  4882.     move.l    gfxbase,a6
  4883.     jsr    _LVORectFill(a6)
  4884.     
  4885.     move.l    lswindow,a1
  4886.     move.l    wd_RPort(a1),a1
  4887.     moveq    #0,d0
  4888.     jsr    _LVOSetAPen(a6)
  4889.     
  4890.     move.l    lswindow,a1
  4891.     move.l    wd_RPort(a1),a1
  4892.     move.l    #12,d0
  4893.     move.l    #31,d1
  4894.     move.l    #268,d2
  4895.     move.l    #39,d3
  4896.     jsr    _LVORectFill(a6)
  4897. noLSwin00    rts
  4898.  
  4899. updateLSwin    tst.l    lswindow
  4900.     beq    noLSwin01
  4901.     
  4902.     movem.l    d0-d7/a0-a6,-(sp)
  4903.     
  4904.     move.l    lswindow,a1
  4905.     move.l    wd_RPort(a1),a1
  4906.     move.l    #3,d0
  4907.     move.l    gfxbase,a6
  4908.     jsr    _LVOSetAPen(a6)
  4909.     
  4910.     move.l    lswindow,a1
  4911.     move.l    wd_RPort(a1),a1
  4912.     move.l    #12,d0
  4913.     move.l    #31,d1
  4914.     move.l    #256,d3
  4915.     mulu    lineno,d3
  4916.     divu    maxline,d3
  4917.     
  4918.     and.l    #$FFFF,d3
  4919.     move.l    #268,d2
  4920.     sub.w    d3,d2
  4921.     move.l    #39,d3
  4922.     jsr    _LVORectFill(a6)
  4923.     
  4924.     movem.l    (sp)+,d0-d7/a0-a6
  4925. noLSwin01    rts
  4926.  
  4927. closeLSwin    tst.l    lswindow
  4928.     beq    noLSwin02
  4929.     
  4930.     move.l    intuibase,a6
  4931.     move.l    lswindow,a0
  4932.     jsr    _LVOCloseWindow(a6)
  4933.     clr.l    lswindow
  4934. noLSwin02    rts
  4935.  
  4936. close    tst.l    winpt1
  4937.     beq    nowin1
  4938.     move.l    winpt1,a0
  4939.     move.l    intuibase,a6
  4940.     jsr    _LVOClearMenuStrip(a6)
  4941.     
  4942.     move.l    winpt1,a0
  4943.     jsr    _LVOCloseWindow(a6)
  4944.     clr.l    winpt1
  4945.     
  4946. nowin1    tst.l    scrpt1
  4947.     beq    noscr1
  4948.     move.l    scrpt1,a0
  4949.     move.l    intuibase,a6
  4950.     jsr    _LVOCloseScreen(a6)
  4951.     clr.l    scrpt1
  4952.     
  4953. noscr1    tst.l    pladdr
  4954.     beq    nobpl1
  4955.     move.l    pladdr,a1
  4956.     move.l    plsize,d0
  4957.     move.l    4.w,a6
  4958.     jsr    _LVOFreeMem(a6)
  4959.     clr.l    pladdr
  4960.     
  4961. nobpl1    tst.l    req1
  4962.     beq    noreq1
  4963.     move.l    reqtbase,a6
  4964.     move.l    req1,a1
  4965.     jsr    _LVOrtFreeRequest(a6)
  4966.     clr.l    req1
  4967.     
  4968. noreq1    tst.l    req2
  4969.     beq    noreq2
  4970.     move.l    reqtbase,a6
  4971.     move.l    req2,a1
  4972.     jsr    _LVOrtFreeRequest(a6)
  4973.     clr.l    req2
  4974.     
  4975. noreq2    tst.l    dtbase
  4976.     beq    nodtlib
  4977.     move.l    dtbase,a1
  4978.     move.l    4.w,a6
  4979.     jsr    _LVOCloseLibrary(a6)
  4980.     clr.l    dtbase
  4981.     
  4982. nodtlib    tst.l    reqtbase
  4983.     beq    norqtlib
  4984.     move.l    reqtbase,a1
  4985.     move.l    4.w,a6
  4986.     jsr    _LVOCloseLibrary(a6)
  4987.     clr.l    reqtbase
  4988.     
  4989. norqtlib    tst.l    gadbase
  4990.     beq    nogadtlib
  4991.     move.l    gadbase,a1
  4992.     move.l    4.w,a6
  4993.     jsr    _LVOCloseLibrary(a6)
  4994.         clr.l    gadbase
  4995.     
  4996. nogadtlib    tst.l    gfx39base
  4997.     beq    nogfx39lib
  4998.     move.l    gfx39base,a1
  4999.     move.l    4.w,a6
  5000.     jsr    _LVOCloseLibrary(a6)
  5001.     clr.l    gfx39base
  5002.     
  5003. nogfx39lib    tst.l    gfxbase
  5004.     beq    nogfxlib
  5005.     move.l    gfxbase,a1
  5006.     move.l    4.w,a6
  5007.     jsr    _LVOCloseLibrary(a6)
  5008.     clr.l    gfxbase
  5009.     
  5010. nogfxlib    tst.l    intuibase
  5011.     beq    nointlib
  5012.     move.l    intuibase,a1
  5013.     move.l    4.w,a6
  5014.     jsr    _LVOCloseLibrary(a6)
  5015.     clr.l    intuibase
  5016.     
  5017. nointlib    move.l    dosbase,a1
  5018.     move.l    4.w,a6
  5019.     jsr    _LVOCloseLibrary(a6)
  5020.     clr.l    dosbase
  5021.     
  5022.     moveq    #0,d0
  5023.     rts
  5024.  
  5025. coordchange    add.b    #1,coordtype
  5026.     cmp.b    #3,coordtype
  5027.     bne    notwrapct
  5028.     move.b    #0,coordtype
  5029. notwrapct    rts
  5030.  
  5031. decbpl    cmp.w    #1,cdepth
  5032.     beq    minbpl
  5033.     
  5034.     move.l    iffcamg,d0
  5035.     and.l    #$880,d0
  5036.     bne    minbpl
  5037.     
  5038.     sub.w    #1,cdepth
  5039.     bsr    fakebpl
  5040.     move.w    cdepth,d0
  5041.     move.w    #1,d1
  5042.     lea    depthASCII,a0
  5043.     bsr    numtohexasc
  5044.     bsr    writecoords
  5045. minbpl    rts
  5046.  
  5047. incbpl    move.w    cdepth,d0
  5048.     cmp.w    iffdepth,d0
  5049.     beq    maxbpl
  5050.     
  5051.     move.l    iffcamg,d0
  5052.     and.l    #$880,d0
  5053.     bne    maxbpl
  5054.     add.w    #1,cdepth
  5055.     bsr    fakebpl
  5056.     move.w    cdepth,d0
  5057.     move.w    #1,d1
  5058.     lea    depthASCII,a0
  5059.     bsr    numtohexasc
  5060.     bsr    writecoords
  5061. maxbpl    rts
  5062.  
  5063. fakebpl    tst.l    gfx39base
  5064.     beq    nogfx39b
  5065.     
  5066.     move.l    gfx39base,a6
  5067.     move.l    #1,d0
  5068.     move.w    iffdepth,d1
  5069.     lsl.l    d1,d0
  5070.     move.l    #1,d2
  5071.     move.w    cdepth,d3
  5072.     lsl.l    d3,d2
  5073.     divu    d2,d0
  5074.     move.w    d0,d6
  5075.     sub.w    #1,d6
  5076.     lea    pal32,a1
  5077.     move.l    #1,d0
  5078.     move.w    iffdepth,d1
  5079.     lsl.l    d1,d0
  5080.     move.w    d0,(a1)+
  5081.     clr.w    (a1)+
  5082.     
  5083. nextlot    move.l    #1,d7
  5084.     move.w    cdepth,d1
  5085.     lsl.l    d1,d7
  5086.     sub.w    #1,d7
  5087.     lea    palstore1,a0
  5088.     
  5089.     moveq    #0,d1
  5090.     move.l    #$7fff,d2
  5091.     clr.b    d4
  5092.     
  5093. copycols    moveq    #0,d3
  5094.     move.b    (a0)+,d0
  5095.     and.l    #$FF,d0
  5096.     add.l    d0,d3
  5097.     swap    d0
  5098.     lsl.l    #8,d0
  5099.     move.l    d0,(a1)+
  5100.     move.b    (a0)+,d0
  5101.     and.l    #$FF,d0
  5102.     add.l    d0,d3
  5103.     swap    d0
  5104.     lsl.l    #8,d0
  5105.     move.l    d0,(a1)+
  5106.     move.b    (a0)+,d0
  5107.     and.l    #$FF,d0
  5108.     add.l    d0,d3
  5109.     swap    d0
  5110.     lsl.l    #8,d0
  5111.     
  5112.     cmp.w    d3,d1
  5113.     bge    notlight3
  5114.     
  5115.     move.w    d3,d1
  5116.     move.b    d4,lightest
  5117.     
  5118. notlight3    cmp.w    d3,d2
  5119.     ble    notdark3
  5120.     
  5121.     move.w    d3,d2
  5122.     move.b    d4,darkest
  5123.  
  5124. notdark3    move.l    d0,(a1)+
  5125.     addq.b    #1,d4
  5126.     dbf    d7,copycols
  5127.     dbf    d6,nextlot
  5128.     
  5129.     clr.l    (a1)+
  5130.     lea    pal32,a1
  5131.     move.l    scrpt1,a0
  5132.     lea    sc_ViewPort(a0),a0
  5133.     jsr    _LVOLoadRGB32(a6)
  5134.     rts
  5135.  
  5136. nogfx39b    move.l    gfxbase,a6
  5137.     moveq    #1,d0
  5138.     move.w    iffdepth,d1
  5139.     lsl.l    d1,d0
  5140.     move.w    d0,d7
  5141.     subq.w    #1,d7
  5142.     lea    palstore1,a0
  5143.     lea    palstore2,a1
  5144.     
  5145. copypal2    moveq    #0,d2
  5146.     move.b    (a0)+,d1
  5147.     and.b    #$F0,d1
  5148.     lsr.b    #4,d1
  5149.     or.b    d1,d2
  5150.     lsl.w    #4,d2
  5151.     move.b    (a0)+,d1
  5152.     and.b    #$F0,d1
  5153.     lsr.b    #4,d1
  5154.     or.b    d1,d2
  5155.     lsl.w    #4,d2
  5156.     move.b    (a0)+,d1
  5157.     and.b    #$F0,d1
  5158.     lsr.b    #4,d1
  5159.     or.b    d1,d2
  5160.     move.w    d2,(a1)+
  5161.     dbf    d7,copypal2
  5162.     
  5163.     lea    palstore2,a1
  5164.     move.l    scrpt1,a0
  5165.     lea    sc_ViewPort(a0),a0
  5166.     jsr    _LVOLoadRGB4(a6)
  5167.     rts
  5168.  
  5169. writecoords    move.l    winpt1,a1
  5170.     move.l    wd_RPort(a1),a1
  5171.     move.b    #RP_JAM2,d0
  5172.     move.l    gfxbase,a6
  5173.     jsr    _LVOSetDrMd(a6)
  5174.     
  5175.     move.l    scrpt1,a1
  5176.     lea    sc_RastPort(a1),a1
  5177.     moveq    #0,d0
  5178.     move.b    darkest,d0
  5179.     jsr    _LVOSetAPen(a6)
  5180.     
  5181.     move.l    scrpt1,a1
  5182.     lea    sc_RastPort(a1),a1
  5183.     move.l    #320,d0
  5184.     move.l    #12,d1
  5185.     move.w    pagewid,d2
  5186.     move.l    #19,d3
  5187.     jsr    _LVORectFill(a6)
  5188.     
  5189.     move.l    winpt1,a1
  5190.     move.l    wd_RPort(a1),a1
  5191.     move.b    #RP_COMPLEMENT,d0
  5192.     jsr    _LVOSetDrMd(a6)
  5193.     
  5194.     
  5195.     lea    statmod,a0
  5196.     lea    coordtxt,a1
  5197.     tst.b    coordtype
  5198.     beq    coordstype
  5199.     
  5200.     lea    addrtxt,a1
  5201. coordstype    move.b    (a1)+,(a0)+
  5202.     bne    coordstype
  5203.         
  5204.     move.b    lightest,statbfg
  5205.     move.b    darkest,statbbg
  5206.     move.l    scrpt1,a0
  5207.     lea    sc_RastPort(a0),a0
  5208.     lea    statbartxt,a1
  5209.     clr.w    d0
  5210.     move.w    #12,d1
  5211.     move.l    intuibase,a6
  5212.     jsr    _LVOPrintIText(a6)
  5213.     rts
  5214.  
  5215. numtoascii2    add.l    #6,a0
  5216.     lea    numbers,a1
  5217.     move.w    #6-1,d7
  5218.     bra    convert
  5219.  
  5220. numtoascii    and.l    #$FFFF,d0
  5221.     tst.w    d0
  5222.     bpl    notminus
  5223.     
  5224.     clr.w    d0
  5225.     
  5226. notminus    add.l    #4,a0
  5227.     lea    numbers,a1
  5228.     move.w    #4-1,d7
  5229. convert    divs    #10,d0
  5230.     swap    d0
  5231.     move.b    0(a1,d0.w),-(a0)
  5232.     clr.w    d0
  5233.     swap    d0
  5234.     dbf    d7,convert
  5235.     rts
  5236.  
  5237. numbers    dc.b    '0123456789'
  5238.  
  5239. numtohexasc    move.l    d7,-(sp)
  5240.     and.l    #$FFFF,d0
  5241.     and.l    #$FFFF,d1
  5242.     add.l    d1,a0
  5243.     lea    hexnums,a1
  5244.     move.w    d1,d7
  5245.     sub.w    #1,d7
  5246. convert2    divs    #$10,d0
  5247.     swap    d0
  5248.     move.b    0(a1,d0.w),-(a0)
  5249.     clr.w    d0
  5250.     swap    d0
  5251.     dbf    d7,convert2
  5252.     
  5253.     move.l    (sp)+,d7
  5254.     rts
  5255.  
  5256. hexnums    dc.b    '0123456789ABCDEF'
  5257.  
  5258. **************************************************************** 
  5259. * 
  5260. *  Copyright 1988 by CREATIVE FOCUS.  This code is freely 
  5261. *  distributable as long as this notice is retained and no 
  5262. *  other conditions are imposed upon its redistribution. 
  5263. * 
  5264. * 
  5265. *  APACK.ASM --  
  5266. * 
  5267. *  A fully compatible replacement for Electronic Arts' PACKER.C 
  5268. *  routine.  Converts data according to the IFF ILBM cmpByteRun1 
  5269. *  compression protocol: 
  5270. * 
  5271. *     control bytes: 
  5272. * 
  5273. *        n =  0.. 127:   followed by n+1 bytes of data; 
  5274. *        n = -1..-127:   followed by byte to be repeated -n+1 times; 
  5275. *        n =     -128:   don't do no nada. 
  5276. * 
  5277. *     calling format: 
  5278. * 
  5279. *        long packrow(from, too, amt) 
  5280. *           char **from, /* pointer to source data pointer */ 
  5281. *                **too;  /* pointer to destination data pointer */ 
  5282. *           long amt;    /* number of bytes to compress */ 
  5283. * 
  5284. *        return(number of bytes written to destination); 
  5285. * 
  5286. *     effects: 
  5287. * 
  5288. *         *from = *from + amt, and *too = *too + return; 
  5289. *         return is "smart," that is, not greater than 
  5290. *         MaxPackedSize = amt + ((amt+127) >> 7). 
  5291. * 
  5292. *     By commenting out CHECK (below) you disable checking for runs 
  5293. *     exceeding 128 bytes.  That CHECK is not needed if you are sure 
  5294. *     the amt to be compressed is always 128 or less. 
  5295. * 
  5296. *  !!! DISCLAIMER !!!  You use this code entirely at your own 
  5297. *  risk.  I don't warrantee its fitness for any purpose.  I 
  5298. *  can't even guarantee the accuracy of anything I've said 
  5299. *  about it, though I've tried my damndest to get it right. 
  5300. *  I may, in fact, be completely out of my tiny little mind :-). 
  5301. * 
  5302. *  That being said, I can be reached for questions, comments, 
  5303. *  or concerns at: 
  5304. * 
  5305. *        Dr. Gerald Hull 
  5306. *        CREATIVE FOCUS 
  5307. *        12 White Street 
  5308. *        Binghamton, N.Y.  13901 
  5309. *        (607) 648-4082 
  5310. * 
  5311. *        bix:    ghull 
  5312. *        PLink:  DRJERRY 
  5313. * 
  5314. *************************************************************** 
  5315. FRM   equ   8                 input line address 
  5316. TOO   equ   12                output line address 
  5317. AMT   equ   16                length of input line 
  5318.  
  5319. MAX   equ   128               maximum encodable output run 
  5320. CHECK equ   1                 turns on maximum row checking 
  5321.  
  5322. packrow 
  5323.  
  5324.  
  5325. ***************     CASE 0:   GRAB PARAMS & INITIALIZE 
  5326. CAS0 
  5327.       link     a6,#0 
  5328.       movem.l  d2/d3/a2/a3/a4,-(a7) 
  5329.       movea.l  FRM(a6),a2 
  5330.       movea.l  (a2),a2        a2 = *from 
  5331.       movea.l  a2,a3          a3 = a2 
  5332.       movea.l  a3,a1 
  5333.       adda.l   AMT(a6),a1     a1 = a2 + amt 
  5334.       movea.l  TOO(a6),a4 
  5335.       movea.l  (a4),a4        a4 = *too 
  5336.  
  5337.  
  5338. ***************     CASE 1:   LITERAL RUN 
  5339. CAS1 
  5340.       movea.l  a3,a0          adjust a0 (no replicates yet!) 
  5341.       move.b   (a3)+,d3       grab character 
  5342.       cmpa.l   a3,a1          if input is finished 
  5343.       beq.s    CAS5              branch to case 5 
  5344.  
  5345.       ifd      CHECK 
  5346.       move.l   a3,d1 
  5347.       sub.l    a2,d1 
  5348.       cmpi     #MAX,d1        if run has reached MAX 
  5349.       beq.s    CAS6              branch to case 6 
  5350.       endc 
  5351.  
  5352.       cmp.b    (a3),d3        if next character != CH 
  5353.       bne.s    CAS1              stay in case 1 
  5354.  
  5355.       move.b    (a3)+,d3
  5356.       cmp.l    a3,a1
  5357.       beq.b    CAS7
  5358.  
  5359.       move.l    a3,d1
  5360.       sub.l    a2,d1
  5361.       cmp.w    #MAX,d1
  5362.       beq.b    CAS6
  5363.  
  5364.       cmp.b    (a3),d3
  5365.       bne.b    CAS1
  5366.   
  5367. ***************     CASE 3:   REPLICATE RUN 
  5368. CAS3 
  5369.       move.b   (a3)+,d3       grab character 
  5370.       cmpa.l   a3,a1          if input is finished 
  5371.       beq.s    CAS7              branch to case 7 
  5372.  
  5373.       ifd      CHECK 
  5374.       move.l   a3,d1 
  5375.       sub.l    a0,d1 
  5376.       cmpi     #MAX,d1        if run has reached MAX 
  5377.       beq.s    CAS4              branch to case 4 
  5378.       endc 
  5379.  
  5380.       cmp.b    (a3),d3        if next character = CH 
  5381.       beq.s    CAS3              stay in case 3 
  5382.  
  5383. *                             else fall into case 4 
  5384.  
  5385.  
  5386. ***************     CASE 4:   LIT AND/OR REP DUMP & CONTINUE 
  5387. CAS4 
  5388.       move.l   a0,d2 
  5389.       sub.l    a2,d2          d2 = a0 - a2 
  5390. *                             if no literal run 
  5391.       beq.s    C41               branch to replicate run 
  5392.  
  5393.       subq     #1,d2          d2 = d2 - 1 
  5394.       move.b   d2,(a4)+       output literal control byte 
  5395.  
  5396. C40   move.b   (a2)+,(a4)+    output literal run 
  5397.       dbra     d2,C40 
  5398.  
  5399. C41   move.l   a0,d2 
  5400.       sub.l    a3,d2          d2 = a0 - a3 (negative result!) 
  5401.       addq     #1,d2          d2 = d2 + 1 
  5402.       move.b   d2,(a4)+       output replicate control byte 
  5403.       move.b   d3,(a4)+       output repeated character 
  5404.       movea.l  a3,a2          reset a2 
  5405.       bra.s    CAS1           branch to case 1 (not done) 
  5406.  
  5407.  
  5408. ***************     CASE 5:   LITERAL DUMP & QUIT 
  5409. CAS5 
  5410.       move.l   a3,d2 
  5411.       sub.l    a2,d2          d2 = a3 - a2 (positive result > 0) 
  5412.       subq     #1,d2          d2 = d2 - 1 
  5413.       move.b   d2,(a4)+       output literal control byte 
  5414.  
  5415. C50   move.b   (a2)+,(a4)+    output literal run 
  5416.       dbra     d2,C50 
  5417.  
  5418.       bra.s    CAS8           branch to case 8 (done) 
  5419.  
  5420.  
  5421.       ifd      CHECK 
  5422.  
  5423. ***************     CASE 6:   LITERAL DUMP & CONTINUE 
  5424. CAS6 
  5425.       move.l   a3,d2 
  5426.       sub.l    a2,d2          d2 = a3 - a2 (positive result > 0) 
  5427.       subq     #1,d2          d2 = d2 - 1 
  5428.       move.b   d2,(a4)+       output literal control byte 
  5429.  
  5430. C60   move.b   (a2)+,(a4)+    output literal run 
  5431.       dbra     d2,C60 
  5432.  
  5433.       bra      CAS1           branch to case 1 (not done) 
  5434.  
  5435.       endc 
  5436.  
  5437.  
  5438. ***************     CASE 7:   LIT AND/OR REP DUMP & FINISH 
  5439. CAS7 
  5440.       move.l   a0,d2 
  5441.       sub.l    a2,d2          d2 = a0 - a2 (positive result > 0) 
  5442. *                             if no literal run 
  5443.       beq.s    C71               branch to replicate run 
  5444.  
  5445.       subq     #1,d2          d2 = d2 - 1 
  5446.       move.b   d2,(a4)+       output literal control byte 
  5447.  
  5448. C70   move.b   (a2)+,(a4)+    output literal run 
  5449.       dbra     d2,C70 
  5450.  
  5451. C71   move.l   a0,d2 
  5452.       sub.l    a3,d2          d2 = a0 - a3 (negative result) 
  5453.       addq     #1,d2          d2 = d2 + 1 
  5454.       move.b   d2,(a4)+       output replicate control byte 
  5455.       move.b   d3,(a4)+       output repeated character 
  5456.  
  5457. *                             fall into case 8 
  5458.  
  5459.  
  5460. ***************     CASE 8:   ADJUST PARAMS & RETURN VALUE 
  5461. CAS8 
  5462.       movea.l  FRM(a6),a0     a0 = **from 
  5463.       move.l   a3,(a0)        *from = *from + amt 
  5464.       movea.l  TOO(a6),a0     a0 = **too 
  5465.  
  5466.       move.l   a4,d0 
  5467.       sub.l    (a0),d0      return = a4 - *too  
  5468.  
  5469.       move.l   a4,(a0)       *too = *too + return 
  5470.       movem.l  (a7)+,d2/d3/a2/a3/a4 
  5471.       UNLK     a6
  5472.       rts
  5473.  
  5474.  
  5475. nodos    move.l    #-1,d0
  5476.     rts
  5477.  
  5478. nogfx    move.l    dosbase,a6
  5479.     move.l    stdout,d1
  5480.     move.l    #nogfxtxt,d2
  5481.     move.l    #nogfxend-nogfxtxt,d3
  5482.     jsr    _LVOWrite(a6)
  5483.     bra    close
  5484.  
  5485. nointui    move.l    dosbase,a6
  5486.     move.l    stdout,d1
  5487.     move.l    #nointuitxt,d2
  5488.     move.l    #nointuiend-nointuitxt,d3
  5489.     jsr    _LVOWrite(a6)
  5490.     bra    close
  5491.  
  5492. nogadt    move.l    dosbase,a6
  5493.     move.l    stdout,d1
  5494.     move.l    #nogadttxt,d2
  5495.     move.l    #nogadtend-nogadttxt,d3
  5496.     jsr    _LVOWrite(a6)
  5497.     bra    close
  5498.  
  5499. noreqt    move.l    dosbase,a6
  5500.     move.l    stdout,d1
  5501.     move.l    #noreqttxt,d2
  5502.     move.l    #noreqtend-noreqttxt,d3
  5503.     jsr    _LVOWrite(a6)
  5504.     bra    close
  5505.  
  5506. noreqa1    move.l    dosbase,a6
  5507.     move.l    stdout,d1
  5508.     move.l    #noreqatxt,d2
  5509.     move.l    #noreqaend-noreqatxt,d3
  5510.     jsr    _LVOWrite(a6)
  5511.     bra    close
  5512.  
  5513. noreqa2    move.l    dosbase,a6
  5514.     move.l    stdout,d1
  5515.     move.l    #noreqatxt,d2
  5516.     move.l    #noreqaend-noreqatxt,d3
  5517.     jsr    _LVOWrite(a6)
  5518.     bra    close
  5519.  
  5520. noram    tst.l    dtobject
  5521.     beq    nodtobj1
  5522.     move.l    winpt1,a0
  5523.     move.l    dtobject,a1
  5524.     jsr    _LVORemoveDTObject(a6)
  5525.     
  5526.     move.l    dtobject,a0
  5527.     jsr    _LVODisposeDTObject(a6)
  5528.  
  5529. nodtobj1    move.l    dosbase,a6
  5530.     move.l    stdout,d1
  5531.     move.l    #noscreentxt,d2
  5532.     move.l    #noscreenend-noscreentxt,d3
  5533.     jsr    _LVOWrite(a6)
  5534.     bra    close
  5535.  
  5536. noks2    move.l    dosbase,a6
  5537.     move.l    stdout,d1
  5538.     move.l    #noks2txt,d2
  5539.     move.l    #noks2end-noks2txt,d3
  5540.     jsr    _LVOWrite(a6)
  5541.     bra    close
  5542.  
  5543.     SECTION    maindata,DATA
  5544.  
  5545.     dc.b    '$VER:IFFMaster Pro v0.99n (25/09/94)',0
  5546.     
  5547.     even
  5548. newloadwin
  5549. loadwinx    dc.w    0        ;x position
  5550. loadwiny    dc.w    11        ;y position
  5551.     dc.w    280        ;width
  5552.     dc.w    50        ;height
  5553.     dc.b    0        ;block pen
  5554.     dc.b    1        ;detail pen
  5555.     dc.l    0        ;easy IDCMP
  5556.     dc.l    (WINDOWDRAG|WINDOWDEPTH|SIMPLE_REFRESH|ACTIVATE);flags
  5557.     dc.l    0        ;gadgets
  5558.     dc.l    0        ;checkmark
  5559. windowtitle    dc.l    lwintitle        ;title
  5560. scrpt3    dc.l    0        ;screen ptr
  5561.     dc.l    0        ;bitmap
  5562.     dc.w    0        ;min width
  5563.     dc.w    0        ;min height
  5564.     dc.w    0        ;max width
  5565.     dc.w    0        ;max height
  5566.     dc.w    CUSTOMSCREEN    ;type
  5567.  
  5568. newwindow    dc.w    0        ;x position
  5569.     dc.w    22        ;y position
  5570. winwidth    dc.w    640        ;width
  5571. winheight    dc.w    234        ;height
  5572.     dc.b    1        ;block pen
  5573.     dc.b    2        ;detail pen
  5574.     dc.l    (MOUSEBUTTONS|MOUSEMOVE|MENUPICK|MENUVERIFY|RAWKEY);easy IDCMP
  5575.     dc.l    (SMART_REFRESH|ACTIVATE|REPORTMOUSE|BORDERLESS|GIMMEZEROZERO|BACKDROP|WFLG_NEWLOOKMENUS);flags
  5576.     dc.l    0        ;gadgets
  5577.     dc.l    0        ;checkmark
  5578.     dc.l    0        ;title
  5579. scrpt2    dc.l    0        ;screen ptr    
  5580.     dc.l    0        ;bitmap
  5581.     dc.w    0        ;min width
  5582.     dc.w    0        ;min height
  5583.     dc.w    0        ;max width
  5584.     dc.w    0        ;max height
  5585.     dc.w    CUSTOMSCREEN    ;type
  5586.  
  5587. newscreen    dc.w    0        ;left edge
  5588.     dc.w    0        ;top edge
  5589. scrwid    dc.w    640        ;width
  5590. scrht    dc.w    256        ;height
  5591. scrdepth    dc.w    2        ;depth
  5592.     dc.b    0        ;detail pen
  5593.     dc.b    1        ;block pen
  5594.     dc.w    V_HIRES        ;view modes
  5595.     dc.w    CUSTOMSCREEN|NS_EXTENDED;type
  5596.     dc.l    0        ;font
  5597.     dc.l    scrtitle        ;title
  5598.     dc.l    0        ;gadgets
  5599.     dc.l    0        ;custom bitmap
  5600.     dc.l    scrtags        ;ens extension
  5601.  
  5602. scrtags    dc.l    SA_DisplayID
  5603. scrvmodes    dc.l    HIRES_KEY
  5604.     dc.l    SA_Pens
  5605.     dc.l    pensdata
  5606.     dc.l    TAG_DONE
  5607.  
  5608. pensdata    dc.w    -1
  5609.  
  5610. bitmap
  5611. bytesperrow    dc.w    80        ;bytes per row
  5612. height2    dc.w    256        ;rows
  5613.     dc.b    0        ;flags
  5614. scdepth    dc.b    2        ;depth
  5615.     dc.w    0        ;pad
  5616. bplptr    dc.l    0        ;planes ptrs 0 - 7
  5617.     dc.l    0
  5618.     dc.l    0
  5619.     dc.l    0
  5620.     dc.l    0
  5621.     dc.l    0
  5622.     dc.l    0
  5623.     dc.l    0
  5624.  
  5625. ;saveprefswin
  5626. ;spwinx    dc.w    0        ;x position
  5627. ;spwiny    dc.w    0        ;y position
  5628. ;    dc.w    200        ;width
  5629. ;    dc.w    200        ;height
  5630. ;    dc.b    1        ;block pen
  5631. ;    dc.b    2        ;detail pen
  5632. ;    dc.l    (MOUSEBUTTONS|MOUSEMOVE|MENUPICK|MENUVERIFY|RAWKEY);easy IDCMP
  5633. ;    dc.l    (SMART_REFRESH|ACTIVATE|WINDOWDRAG);flags
  5634. ;spwingads    dc.l    0        ;gadgets
  5635. ;    dc.l    0        ;checkmark
  5636. ;    dc.l    0        ;title
  5637. ;scrpt5    dc.l    0        ;screen ptr    
  5638. ;    dc.l    0        ;bitmap
  5639. ;    dc.w    0        ;min width
  5640. ;    dc.w    0        ;min height
  5641. ;    dc.w    0        ;max width
  5642. ;    dc.w    0        ;max height
  5643. ;    dc.w    CUSTOMSCREEN    ;type
  5644. ;
  5645. newprefswin    dc.w    0        ;x position
  5646.     dc.w    0        ;y position
  5647.     dc.w    640        ;width
  5648.     dc.w    200        ;height
  5649.     dc.b    1        ;detail pen
  5650.     dc.b    2        ;block pen
  5651.     dc.l    (GADGETUP|CLOSEWINDOW)    ;easy IDCMP
  5652.     dc.l    (WINDOWDRAG|WINDOWDEPTH|WINDOWCLOSE|SMART_REFRESH|ACTIVATE)    ;flags
  5653.     dc.l    prefsgad1        ;gadgets
  5654.     dc.l    0        ;checkmark
  5655.     dc.l    prefstitle        ;title
  5656.     dc.l    0        ;screen
  5657.     dc.l    0        ;bitmap
  5658.     dc.w    0        ;min width
  5659.     dc.w    0        ;min height
  5660.     dc.w    0        ;max width
  5661.     dc.w    0        ;max height
  5662.     dc.w    WBENCHSCREEN    ;type
  5663.  
  5664. keytable    dc.w    ALTLT
  5665.     dc.l    altkey
  5666.     dc.w    ALTLT+$80
  5667.     dc.l    altkey
  5668.     dc.w    ALTRT
  5669.     dc.l    altkey
  5670.     dc.w    ALTRT+$80
  5671.     dc.l    altkey
  5672.     dc.w    CTRL
  5673.     dc.l    ctrlkey
  5674.     dc.w    CTRL+$80
  5675.     dc.l    ctrlkey
  5676.     dc.w    CSRLT
  5677.     dc.l    scrolllt
  5678.     dc.w    CSRRT
  5679.     dc.l    scrollrt
  5680.     dc.w    CSRUP
  5681.     dc.l    scrollup
  5682.     dc.w    CSRDN
  5683.     dc.l    scrolldn
  5684.     dc.w    B
  5685.     dc.l    initbrush
  5686.     dc.w    P
  5687.     dc.l    setpalette
  5688.     dc.w    MINUS
  5689.     dc.l    decbpl
  5690.     dc.w    EQUALS
  5691.     dc.l    incbpl
  5692.     dc.w    SPACE
  5693.     dc.l    coordchange
  5694.     dc.w    $FFFF
  5695.     dc.l    $FFFFFFFF
  5696.  
  5697. prefstable    dc.l    prefsgad1
  5698.     dc.l    prefsbplmeth
  5699.     dc.l    prefsgad2
  5700.     dc.l    prefspalinfo
  5701.     dc.l    prefsgad3
  5702.     dc.l    prefspaltype
  5703.     dc.l    prefsgad4
  5704.     dc.l    prefspalmeth
  5705.     dc.l    prefsgad5
  5706.     dc.l    prefssprmeth
  5707.     dc.l    prefsgad6
  5708.     dc.l    prefssprctrl
  5709.     dc.l    prefsgad7
  5710.     dc.l    prefssprdepth
  5711.     dc.l    prefsgad8
  5712.     dc.l    prefsextrablit
  5713.     dc.l    prefsgad9
  5714.     dc.l    prefscomp
  5715.     dc.l    prefsgad11
  5716.     dc.l    undoprefs
  5717.     dc.l    prefsgad13
  5718.     dc.l    prefsquit
  5719.     dc.l    prefsgad14
  5720.     dc.l    prefssave
  5721.     dc.l    0
  5722.     dc.l    0
  5723.  
  5724. prefsgad1    dc.l    prefsgad2        ;next gadget
  5725.     dc.w    4        ;left edge
  5726.     dc.w    30        ;top edge
  5727.     dc.w    632        ;width
  5728.     dc.w    12        ;height
  5729.     dc.w    GFLG_GADGIMAGE|GFLG_GADGHIMAGE;flags
  5730.     dc.w    GACT_RELVERIFY    ;activation
  5731.     dc.w    GTYP_BOOLGADGET    ;type
  5732.     dc.l    pgad1a        ;gadget render
  5733.     dc.l    0        ;select render
  5734.     dc.l    pgadtxt1        ;gadget text
  5735.     dc.l    0        ;mutual exclude
  5736.     dc.l    0        ;special info
  5737.     dc.w    0        ;gadget id
  5738.     dc.l    0        ;user data ptr
  5739.  
  5740. prefsgad2    dc.l    prefsgad3        ;next gadget
  5741.     dc.w    4        ;left edge
  5742.     dc.w    42        ;top edge
  5743.     dc.w    632        ;width
  5744.     dc.w    12        ;height
  5745.     dc.w    GFLG_GADGIMAGE|GFLG_GADGHIMAGE;flags
  5746.     dc.w    GACT_RELVERIFY    ;activation
  5747.     dc.w    GTYP_BOOLGADGET    ;type
  5748.     dc.l    pgad1a        ;gadget render
  5749.     dc.l    0        ;select render
  5750.     dc.l    pgadtxt2        ;gadget text
  5751.     dc.l    0        ;mutual exclude
  5752.     dc.l    0        ;special info
  5753.     dc.w    0        ;gadget id
  5754.     dc.l    0        ;use data ptr
  5755.  
  5756. prefsgad3    dc.l    prefsgad4        ;next gadget
  5757.     dc.w    4        ;left edge
  5758.     dc.w    54        ;top edge
  5759.     dc.w    632        ;width
  5760.     dc.w    12        ;height
  5761.     dc.w    GFLG_GADGIMAGE|GFLG_GADGHIMAGE;flags
  5762.     dc.w    GACT_RELVERIFY    ;activation
  5763.     dc.w    GTYP_BOOLGADGET    ;type
  5764.     dc.l    pgad1a        ;select render
  5765.     dc.l    0        ;gadget render
  5766.     dc.l    pgadtxt3        ;gadget text
  5767.     dc.l    0        ;mutual exclude
  5768.     dc.l    0        ;special info
  5769.     dc.w    0        ;gadget id
  5770.     dc.l    0        ;use data ptr
  5771.  
  5772. prefsgad4    dc.l    prefsgad5        ;next gadget
  5773.     dc.w    4        ;left edge
  5774.     dc.w    66        ;top edge
  5775.     dc.w    632        ;width
  5776.     dc.w    12        ;height
  5777.     dc.w    GFLG_GADGIMAGE|GFLG_GADGHIMAGE;flags
  5778.     dc.w    GACT_RELVERIFY    ;activation
  5779.     dc.w    GTYP_BOOLGADGET    ;type
  5780.     dc.l    pgad1a        ;select render
  5781.     dc.l    0        ;gadget render
  5782.     dc.l    pgadtxt4        ;gadget text
  5783.     dc.l    0        ;mutual exclude
  5784.     dc.l    0        ;special info
  5785.     dc.w    0        ;gadget id
  5786.     dc.l    0        ;use data ptr
  5787.     
  5788. prefsgad5    dc.l    prefsgad6        ;next gadget
  5789.     dc.w    4        ;left edge
  5790.     dc.w    78        ;top edge
  5791.     dc.w    632        ;width
  5792.     dc.w    12        ;height
  5793.     dc.w    GFLG_GADGIMAGE|GFLG_GADGHIMAGE;flags
  5794.     dc.w    GACT_RELVERIFY    ;activation
  5795.     dc.w    GTYP_BOOLGADGET    ;type
  5796.     dc.l    pgad1a        ;select render
  5797.     dc.l    0        ;gadget render
  5798.     dc.l    pgadtxt5        ;gadget text
  5799.     dc.l    0        ;mutual exclude
  5800.     dc.l    0        ;special info
  5801.     dc.w    0        ;gadget id
  5802.     dc.l    0        ;use data ptr
  5803.  
  5804. prefsgad6    dc.l    prefsgad7        ;next gadget
  5805.     dc.w    4        ;left edge
  5806.     dc.w    90        ;top edge
  5807.     dc.w    632        ;width
  5808.     dc.w    12        ;height
  5809.     dc.w    GFLG_GADGIMAGE|GFLG_GADGHIMAGE;flags
  5810.     dc.w    GACT_RELVERIFY    ;activation
  5811.     dc.w    GTYP_BOOLGADGET    ;type
  5812.     dc.l    pgad1a        ;select render
  5813.     dc.l    0        ;gadget render
  5814.     dc.l    pgadtxt6        ;gadget text
  5815.     dc.l    0        ;mutual exclude
  5816.     dc.l    0        ;special info
  5817.     dc.w    0        ;gadget id
  5818.     dc.l    0        ;use data ptr
  5819.  
  5820. prefsgad7    dc.l    prefsgad8        ;next gadget
  5821.     dc.w    4        ;left edge
  5822.     dc.w    102        ;top edge
  5823.     dc.w    632        ;width
  5824.     dc.w    12
  5825.     dc.w    GFLG_GADGIMAGE|GFLG_GADGHIMAGE;flags
  5826.     dc.w    GACT_RELVERIFY    ;activation
  5827.     dc.w    GTYP_BOOLGADGET    ;type
  5828.     dc.l    pgad1a        ;select render
  5829.     dc.l    0        ;gadget render
  5830.     dc.l    pgadtxt7        ;gadget text
  5831.     dc.l    0        ;mutual exclude
  5832.     dc.l    0        ;special info
  5833.     dc.w    0        ;gadget id
  5834.     dc.l    0        ;use data ptr
  5835.  
  5836. prefsgad8    dc.l    prefsgad9        ;next gadget
  5837.     dc.w    4        ;left edge
  5838.     dc.w    114        ;top edge
  5839.     dc.w    632        ;width
  5840.     dc.w    12        ;height
  5841.     dc.w    GFLG_GADGIMAGE|GFLG_GADGHIMAGE;flags
  5842.     dc.w    GACT_RELVERIFY    ;activation
  5843.     dc.w    GTYP_BOOLGADGET    ;type
  5844.     dc.l    pgad1a        ;select render
  5845.     dc.l    0        ;gadget render
  5846.     dc.l    pgadtxt8        ;gadget text
  5847.     dc.l    0        ;mutual exclude
  5848.     dc.l    0        ;special info
  5849.     dc.w    0        ;gadget id
  5850.     dc.l    0        ;use data ptr
  5851.  
  5852. prefsgad9    dc.l    prefsgad10        ;next gadget
  5853.     dc.w    4        ;left edge
  5854.     dc.w    126        ;top edge
  5855.     dc.w    632        ;width
  5856.     dc.w    12        ;height
  5857.     dc.w    GFLG_GADGIMAGE|GFLG_GADGHIMAGE;flags
  5858.     dc.w    GACT_RELVERIFY    ;activation
  5859.     dc.w    GTYP_BOOLGADGET    ;type
  5860.     dc.l    pgad1a        ;select render
  5861.     dc.l    0        ;gadget render
  5862.     dc.l    pgadtxt9        ;gadget text
  5863.     dc.l    0        ;mutual exclude
  5864.     dc.l    0        ;special info
  5865.     dc.w    0        ;gadget id
  5866.     dc.l    0        ;use data ptr
  5867.  
  5868. prefsgad10    dc.l    prefsgad11        ;next gadget
  5869.     dc.w    4        ;left edge
  5870.     dc.w    138        ;top edge
  5871.     dc.w    632        ;width
  5872.     dc.w    12        ;height
  5873.     dc.w    GFLG_GADGIMAGE|GFLG_GADGHIMAGE;flags
  5874.     dc.w    GACT_RELVERIFY    ;activation
  5875.     dc.w    GTYP_BOOLGADGET    ;type
  5876.     dc.l    pgad1a        ;select render
  5877.     dc.l    0        ;gadget render
  5878.     dc.l    0        ;gadget text
  5879.     dc.l    0        ;mutual exclude
  5880.     dc.l    0        ;special info
  5881.     dc.w    0        ;gadget id
  5882.     dc.l    0        ;use data ptr
  5883.  
  5884. prefsgad11    dc.l    prefsgad12        ;next gadget
  5885.     dc.w    4        ;left edge
  5886.     dc.w    150        ;top edge
  5887.     dc.w    632        ;width
  5888.     dc.w    12        ;height
  5889.     dc.w    GFLG_GADGIMAGE|GFLG_GADGHIMAGE;flags
  5890.     dc.w    GACT_RELVERIFY    ;activation
  5891.     dc.w    GTYP_BOOLGADGET    ;type
  5892.     dc.l    pgad1a        ;select render
  5893.     dc.l    0        ;gadget render
  5894.     dc.l    pgadtxt10        ;gadget text
  5895.     dc.l    0        ;mutual exclude
  5896.     dc.l    0        ;special info
  5897.     dc.w    0        ;gadget id
  5898.     dc.l    0        ;use data ptr
  5899.  
  5900. prefsgad12    dc.l    prefsgad13        ;next gadget
  5901.     dc.w    4        ;left edge
  5902.     dc.w    162        ;top edge
  5903.     dc.w    632        ;width
  5904.     dc.w    12        ;height
  5905.     dc.w    GFLG_GADGIMAGE|GFLG_GADGHIMAGE;flags
  5906.     dc.w    GACT_RELVERIFY    ;activation
  5907.     dc.w    GTYP_BOOLGADGET    ;type
  5908.     dc.l    pgad1a        ;select render
  5909.     dc.l    0        ;gadget render
  5910.     dc.l    0        ;gadget text
  5911.     dc.l    0        ;mutual exclude
  5912.     dc.l    0        ;special info
  5913.     dc.w    0        ;gadget id
  5914.     dc.l    0        ;use data ptr
  5915.     
  5916. prefsgad13    dc.l    prefsgad14        ;next gadget
  5917.     dc.w    4        ;left edge
  5918.     dc.w    174        ;top edge
  5919.     dc.w    632        ;width
  5920.     dc.w    12        ;height
  5921.     dc.w    GFLG_GADGIMAGE|GFLG_GADGHIMAGE;flags
  5922.     dc.w    GACT_RELVERIFY    ;activation
  5923.     dc.w    GTYP_BOOLGADGET    ;type
  5924.     dc.l    pgad1a        ;select render
  5925.     dc.l    0        ;gadget render
  5926.     dc.l    pgadtxt11        ;gadget text
  5927.     dc.l    0        ;mutual exclude
  5928.     dc.l    0        ;special info
  5929.     dc.w    0        ;gadget id
  5930.     dc.l    0        ;use data ptr
  5931.  
  5932. prefsgad14    dc.l    0        ;next gadget
  5933.     dc.w    4        ;left edge
  5934.     dc.w    186        ;top edge
  5935.     dc.w    632        ;width
  5936.     dc.w    12        ;height
  5937.     dc.w    GFLG_GADGIMAGE|GFLG_GADGHIMAGE;flags
  5938.     dc.w    GACT_RELVERIFY    ;activation
  5939.     dc.w    GTYP_BOOLGADGET    ;type
  5940.     dc.l    pgad1a        ;select render
  5941.     dc.l    0        ;gadget render
  5942.     dc.l    pgadtxt12        ;gadget text
  5943.     dc.l    0        ;mutual exclude
  5944.     dc.l    0        ;special info
  5945.     dc.w    0        ;gadget id
  5946.     dc.l    0        ;use data ptr
  5947.  
  5948. pgad1a    dc.w    0        ;left edge
  5949.     dc.w    0        ;top edge
  5950.     dc.w    632        ;width
  5951.     dc.w    12        ;height
  5952.     dc.w    1        ;depth
  5953.     dc.l    gadgetimage        ;image data
  5954.     dc.b    2        ;planepick
  5955.     dc.b    0        ;plane on/off
  5956.     dc.l    0        ;next image
  5957.  
  5958. pgadtxt1    dc.b    1        ;front pen
  5959.     dc.b    0        ;back pen
  5960.     dc.b    RP_JAM2        ;draw mode
  5961.     dc.b    0        ;pad byte
  5962.     dc.w    29        ;left edge
  5963.     dc.w    2        ;top edge
  5964.     dc.l    0        ;font
  5965.     dc.l    ptxt1        ;text
  5966.     dc.l    0        ;next intuitext
  5967.  
  5968. pgadtxt2    dc.b    1        ;front pen
  5969.     dc.b    0        ;back pen
  5970.     dc.b    RP_JAM2        ;draw mode
  5971.     dc.b    0        ;pad byte
  5972.     dc.w    29        ;left edge
  5973.     dc.w    2        ;top edge
  5974.     dc.l    0        ;font
  5975.     dc.l    ptxt2        ;text
  5976.     dc.l    0        ;next intuitext
  5977.  
  5978. pgadtxt3    dc.b    1        ;front pen
  5979.     dc.b    0        ;back pen
  5980.     dc.b    RP_JAM2        ;draw mode
  5981.     dc.b    0        ;pad byte
  5982.     dc.w    29        ;left edge
  5983.     dc.w    2        ;top edge
  5984.     dc.l    0        ;font
  5985.     dc.l    ptxt3        ;text
  5986.     dc.l    0        ;next intuitext
  5987.  
  5988. pgadtxt4    dc.b    1        ;front pen
  5989.     dc.b    0        ;back pen
  5990.     dc.b    RP_JAM2        ;draw mode
  5991.     dc.b    0        ;pad byte
  5992.     dc.w    29        ;left edge
  5993.     dc.w    2        ;top edge
  5994.     dc.l    0        ;font
  5995.     dc.l    ptxt4        ;text
  5996.     dc.l    0        ;next intuitext
  5997.  
  5998. pgadtxt5    dc.b    1        ;front pen
  5999.     dc.b    0        ;back pen
  6000.     dc.b    RP_JAM2        ;draw mode
  6001.     dc.b    0        ;pad byte
  6002.     dc.w    29        ;left edge
  6003.     dc.w    2        ;top edge
  6004.     dc.l    0        ;font
  6005.     dc.l    ptxt5        ;text
  6006.     dc.l    0        ;next intuitext
  6007.  
  6008. pgadtxt6    dc.b    1        ;front pen
  6009.     dc.b    0        ;back pen
  6010.     dc.b    RP_JAM2        ;draw mode
  6011.     dc.b    0        ;pad byte
  6012.     dc.w    29        ;left edge
  6013.     dc.w    2        ;top edge
  6014.     dc.l    0        ;font
  6015.     dc.l    ptxt6        ;text
  6016.     dc.l    0        ;next intuitext
  6017.  
  6018. pgadtxt7    dc.b    1        ;front pen
  6019.     dc.b    0        ;back pen
  6020.     dc.b    RP_JAM2        ;draw mode
  6021.     dc.b    0        ;pad byte
  6022.     dc.w    29        ;left edge
  6023.     dc.w    2        ;top edge
  6024.     dc.l    0        ;font
  6025.     dc.l    ptxt7        ;text
  6026.     dc.l    0        ;next intuitext
  6027.  
  6028. pgadtxt8    dc.b    1        ;front pen
  6029.     dc.b    0        ;back pen
  6030.     dc.b    RP_JAM2        ;draw mode
  6031.     dc.b    0        ;pad byte
  6032.     dc.w    29        ;left edge
  6033.     dc.w    2        ;top edge
  6034.     dc.l    0        ;font
  6035.     dc.l    ptxt8        ;text
  6036.     dc.l    0        ;next intuitext
  6037.  
  6038. pgadtxt9    dc.b    1        ;front pen
  6039.     dc.b    0        ;back pen
  6040.     dc.b    RP_JAM2        ;draw mode
  6041.     dc.b    0        ;pad byte
  6042.     dc.w    29        ;left edge
  6043.     dc.w    2        ;top edge
  6044.     dc.l    0        ;font
  6045.     dc.l    ptxt9        ;text
  6046.     dc.l    0        ;next intuitext
  6047.  
  6048. pgadtxt10    dc.b    1        ;front pen
  6049.     dc.b    0        ;back pen
  6050.     dc.b    RP_JAM2        ;draw mode
  6051.     dc.b    0        ;pad byte
  6052.     dc.w    29        ;left edge
  6053.     dc.w    2        ;top edge
  6054.     dc.l    0        ;font
  6055.     dc.l    ptxt10        ;text
  6056.     dc.l    0        ;next intuitext
  6057.  
  6058. pgadtxt11    dc.b    1        ;front pen
  6059.     dc.b    0        ;back pen
  6060.     dc.b    RP_JAM2        ;draw mode
  6061.     dc.b    0        ;pad byte
  6062.     dc.w    29        ;left edge
  6063.     dc.w    2        ;top edge
  6064.     dc.l    0        ;font
  6065.     dc.l    ptxt11        ;text
  6066.     dc.l    0        ;next intuitext
  6067.  
  6068. pgadtxt12    dc.b    1        ;front pen
  6069.     dc.b    0        ;back pen
  6070.     dc.b    RP_JAM2        ;draw mode
  6071.     dc.b    0        ;pad byte
  6072.     dc.w    29        ;left edge
  6073.     dc.w    2        ;top edge
  6074.     dc.l    0        ;font
  6075.     dc.l    ptxt12        ;text
  6076.     dc.l    0        ;next intuitext
  6077.  
  6078. ;picsavegad1    dc.w    150,50        ;left,top
  6079. ;    dc.w    150,50        ;width,height
  6080. ;    dc.l    psgad1title        ;gadget text
  6081. ;    dc.l    textattr        ;text attr
  6082. ;    dc.w    1        ;gadget id
  6083. ;    dc.l    0        ;flags
  6084. ;visinfo2    dc.l    0        ;visual info
  6085. ;    dc.l    0        ;user data
  6086. ;psgad1title    dc.b    'Image Save Format',0
  6087. ;
  6088. ;textattr    dc.l    topazname
  6089. ;    dc.w    8
  6090. ;    dc.b    FS_NORMAL
  6091. ;    dc.b    FPF_ROMFONT
  6092. ;topazname    dc.b    "Topaz",0
  6093. ;
  6094. statbartxt
  6095. statbfg    dc.b    1        ;front pen
  6096. statbbg    dc.b    0        ;back pen
  6097.     dc.b    RP_JAM2        ;draw mode
  6098.     dc.b    0        ;pad byte
  6099.     dc.w    0        ;left edge
  6100.     dc.w    0        ;top edge
  6101.     dc.l    0        ;font
  6102.     dc.l    stattxt        ;text
  6103.     dc.l    0        ;next intuitext
  6104.  
  6105. intuiloadtxt
  6106. blkpen1    dc.b    1        ;front pen
  6107. detpen1    dc.b    0        ;back pen
  6108.     dc.b    RP_JAM2        ;draw mode
  6109.     dc.b    0        ;pad byte
  6110.     dc.w    0        ;left edge
  6111.     dc.w    0        ;top edge
  6112.     dc.l    0        ;font
  6113.     dc.l    loadtxt2        ;text
  6114.     dc.l    0        ;next intuitext
  6115.  
  6116. menu1    dc.l    menu2        ;next menu
  6117.     dc.w    5        ;left edge
  6118.     dc.w    0        ;top edge
  6119.     dc.w    63        ;width
  6120.     dc.w    10        ;height
  6121.     dc.w    MENUENABLED        ;flags
  6122.     dc.l    menu1txt        ;menu name
  6123.     dc.l    m1option1        ;first item
  6124.     dc.w    0        ;jazz x
  6125.     dc.w    0        ;jaxx y
  6126.     dc.w    0        ;beat x
  6127.     dc.w    0        ;beat y
  6128.     
  6129. menu1txt    dc.b    'Project',0
  6130.  
  6131. m1option1    dc.l    m1option2        ;next item
  6132.     dc.w    0        ;left edge
  6133.     dc.w    0        ;top edge
  6134.     dc.w    150        ;width
  6135.     dc.w    10        ;height
  6136.     dc.w    HIGHCOMP|ITEMENABLED|COMMSEQ|ITEMTEXT;flags
  6137.     dc.l    0        ;mutual exclude
  6138.     dc.l    m1opt1itext        ;item fill
  6139.     dc.l    0        ;select fill
  6140.     dc.b    'L'        ;command
  6141.     dc.b    0        ;pad byte
  6142.     dc.l    0        ;sub item
  6143.     dc.w    0        ;next select
  6144.     
  6145. m1opt1itext    dc.b    1        ;front pen
  6146.     dc.b    2        ;back pen
  6147.     dc.b    RP_JAM2        ;draw mode
  6148.     dc.b    0        ;pad byte
  6149.     dc.w    0        ;left edge
  6150.     dc.w    1        ;top edge
  6151.     dc.l    0        ;font
  6152.     dc.l    m1opt1txt        ;text
  6153.     dc.l    0        ;next intuitext
  6154.  
  6155. m1opt1txt    dc.b    'Load Image',0
  6156.  
  6157. m1option2    dc.l    m1option3        ;next item
  6158.     dc.w    0        ;top edge
  6159.     dc.w    10        ;left edge
  6160.     dc.w    150        ;width
  6161.     dc.w    10        ;height
  6162.     dc.w    HIGHCOMP|ITEMENABLED|ITEMTEXT;flags
  6163.     dc.l    0        ;mutual exclude
  6164.     dc.l    m1opt2itext        ;item fill
  6165.     dc.l    0        ;select fill
  6166.     dc.b    0        ;command
  6167.     dc.b    0        ;pad byte
  6168.     dc.l    m1option2s1        ;sub item
  6169.     dc.w    0        ;next select
  6170.  
  6171. m1opt2itext    dc.b    1        ;front pen
  6172.     dc.b    2        ;back pen
  6173.     dc.b    RP_JAM2        ;draw mode
  6174.     dc.b    0        ;pad byte
  6175.     dc.w    0        ;left edge
  6176.     dc.w    1        ;top edge
  6177.     dc.l    0        ;font
  6178.     dc.l    m1opt2txt        ;text
  6179.     dc.l    0        ;next intuitext
  6180.     
  6181. m1opt2txt    dc.b    'Save Image',0
  6182.  
  6183. m1option2s1    dc.l    m1option2s2        ;next item
  6184.     dc.w    100        ;left edge
  6185.     dc.w    -5        ;top edge
  6186.     dc.w    150        ;width
  6187.     dc.w    10        ;height
  6188.     dc.w    HIGHCOMP|ITEMENABLED|COMMSEQ|ITEMTEXT;flags
  6189.     dc.l    0        ;mutual exclude
  6190.     dc.l    m1o2s1itext        ;item fill
  6191.     dc.l    0        ;select fill
  6192.     dc.b    'R'        ;command
  6193.     dc.b    0        ;pad byte
  6194.     dc.l    0        ;sub item
  6195.     dc.w    0        ;next select
  6196.  
  6197. m1o2s1itext    dc.b    1        ;front pen
  6198.     dc.b    2        ;back pen
  6199.     dc.b    RP_JAM2        ;draw mode
  6200.     dc.b    0        ;pad byte
  6201.     dc.w    0        ;left edge
  6202.     dc.w    1        ;top edge
  6203.     dc.l    0        ;font
  6204.     dc.l    m1o2s1txt        ;text
  6205.     dc.l    0        ;next intuitext
  6206.  
  6207. m1o2s1txt    dc.b    'as raw data',0
  6208.  
  6209. m1option2s2    dc.l    0        ;next item
  6210.     dc.w    100        ;left edge
  6211.     dc.w    5        ;top edge
  6212.     dc.w    150        ;width
  6213.     dc.w    10        ;height
  6214.     dc.w    HIGHCOMP|ITEMENABLED|COMMSEQ|ITEMTEXT;flags
  6215.     dc.l    0        ;mutual exclude
  6216.     dc.l    m1o2s2itext        ;item fill
  6217.     dc.l    0        ;select fill
  6218.     dc.b    'I'        ;command
  6219.     dc.b    0        ;pad byte
  6220.     dc.l    0        ;sub item
  6221.     dc.w    0        ;next select
  6222.  
  6223. m1o2s2itext    dc.b    1        ;front pen
  6224.     dc.b    2        ;back pen
  6225.     dc.b    RP_JAM2        ;draw mode
  6226.     dc.b    0        ;pad byte
  6227.     dc.w    0        ;left edge
  6228.     dc.w    1        ;top edge
  6229.     dc.l    0        ;font
  6230.     dc.l    m1o2s2txt        ;text
  6231.     dc.l    0        ;next intuitext
  6232.     
  6233. m1o2s2txt    dc.b    'as IFF/ILBM',0
  6234.  
  6235. m1option3    dc.l    m1option4        ;next item
  6236.     dc.w    0        ;left edge
  6237.     dc.w    20        ;top edge
  6238.     dc.w    150        ;width
  6239.     dc.w    10        ;height
  6240.     dc.w    HIGHCOMP|ITEMENABLED|ITEMTEXT;flags
  6241.     dc.l    0        ;mutual exclude
  6242.     dc.l    m1opt3itext        ;item fill
  6243.     dc.l    0        ;select fill
  6244.     dc.b    0        ;command
  6245.     dc.b    0        ;pad byte
  6246.     dc.l    m1opt3sub1        ;sub item
  6247.     dc.w    0        ;next select
  6248.  
  6249. m1opt3itext    dc.b    1        ;front pen
  6250.     dc.b    2        ;back pen
  6251.     dc.b    RP_JAM2        ;draw mode
  6252.     dc.b    0        ;pad byte
  6253.     dc.w    0        ;left edge
  6254.     dc.w    1        ;top edge
  6255.     dc.l    0        ;font
  6256.     dc.l    m1opt3txt        ;text
  6257.     dc.l    0        ;next intuitext
  6258.  
  6259. m1opt3txt    dc.b    'Save Brush',0
  6260.  
  6261. m1opt3sub1    dc.l    m1opt3sub2        ;next item
  6262.     dc.w    100        ;left edge
  6263.     dc.w    -5        ;top edge
  6264.     dc.w    150        ;width
  6265.     dc.w    10        ;height
  6266.     dc.w    HIGHCOMP|ITEMENABLED|COMMSEQ|ITEMTEXT;flags
  6267.     dc.l    0        ;mutual exclude
  6268.     dc.l    m1o3s1itext        ;item fill
  6269.     dc.l    0        ;select fill
  6270.     dc.b    'A'        ;command
  6271.     dc.b    0        ;pad byte
  6272.     dc.l    0        ;sub item
  6273.     dc.w    0        ;next select
  6274.  
  6275. m1o3s1itext    dc.b    1        ;front pen
  6276.     dc.b    2        ;back pen
  6277.     dc.b    RP_JAM2        ;draw mode
  6278.     dc.b    0        ;pad byte
  6279.     dc.w    0        ;left edge
  6280.     dc.w    1        ;top edge
  6281.     dc.l    0        ;font
  6282.     dc.l    m1o3s1txt        ;text
  6283.     dc.l    0        ;next intuitext
  6284.  
  6285. m1o3s1txt    dc.b    'as raw data',0
  6286.     
  6287. m1opt3sub2    dc.l    0        ;next item
  6288.     dc.w    100        ;left edge
  6289.     dc.w    5        ;top edge
  6290.     dc.w    150        ;width
  6291.     dc.w    10        ;height
  6292.     dc.w    HIGHCOMP|ITEMENABLED|COMMSEQ|ITEMTEXT;flags
  6293.     dc.l    0        ;mutual exclude
  6294.     dc.l    m1o3s2itext        ;item fill
  6295.     dc.l    0        ;select fill
  6296.     dc.b    'F'        ;command
  6297.     dc.b    0        ;pad byte
  6298.     dc.l    0        ;sub item
  6299.     dc.w    0        ;next select
  6300.  
  6301. m1o3s2itext    dc.b    1        ;front pen
  6302.     dc.b    2        ;back pen
  6303.     dc.b    RP_JAM2        ;draw mode
  6304.     dc.b    0        ;pad byte
  6305.     dc.w    0        ;left edge
  6306.     dc.w    1        ;top edge
  6307.     dc.l    0        ;font
  6308.     dc.l    m1o3s2txt        ;text
  6309.     dc.l    0        ;next intuitext
  6310.  
  6311. m1o3s2txt    dc.b    'as IFF/ILBM',0
  6312.  
  6313. m1option4    dc.l    m1option5        ;next item
  6314.     dc.w    0        ;left edge
  6315.     dc.w    30        ;top edge
  6316.     dc.w    150        ;width
  6317.     dc.w    10        ;height
  6318.     dc.w    HIGHCOMP|ITEMENABLED|ITEMTEXT;flags
  6319.     dc.l    0        ;mutual exclude
  6320.     dc.l    m1opt4itext        ;item fill
  6321.     dc.l    0        ;select fill
  6322.     dc.b    0        ;command
  6323.     dc.b    0        ;pad byte
  6324.     dc.l    m1opt4sub1        ;sub item
  6325.     dc.w    0        ;next select
  6326.  
  6327. m1opt4itext    dc.b    1        ;front pen
  6328.     dc.b    2        ;back pen
  6329.     dc.b    RP_JAM2        ;draw mode
  6330.     dc.b    0        ;pad byte
  6331.     dc.w    0        ;top edge
  6332.     dc.w    1        ;left edge
  6333.     dc.l    0        ;font
  6334.     dc.l    m1opt4txt        ;text
  6335.     dc.l    0        ;next intuitext
  6336.     
  6337. m1opt4txt    dc.b    'Save Sprite',0
  6338.  
  6339. m1opt4sub1    dc.l    m1opt4sub2        ;next item
  6340.     dc.w    100        ;left edge
  6341.     dc.w    -10        ;top edge
  6342.     dc.w    120        ;width
  6343.     dc.w    10        ;height
  6344.     dc.w    HIGHCOMP|ITEMENABLED|COMMSEQ|ITEMTEXT;flags
  6345.     dc.l    0        ;mutual exclude
  6346.     dc.l    m1o4s1itext        ;item fill
  6347.     dc.l    0        ;select fill
  6348.     dc.b    '1'        ;command
  6349.     dc.b    0        ;pad byte
  6350.     dc.l    0        ;sub item
  6351.     dc.w    0        ;next select
  6352.  
  6353. m1o4s1itext    dc.b    1        ;front pen
  6354.     dc.b    2        ;back pen
  6355.     dc.b    RP_JAM2        ;draw mode
  6356.     dc.b    0        ;pad byte
  6357.     dc.w    0        ;left edge
  6358.     dc.w    1        ;top edge
  6359.     dc.l    0        ;font
  6360.     dc.l    m1o4s1txt        ;text
  6361.     dc.l    0        ;next intuitext
  6362.  
  6363. m1o4s1txt    dc.b    '16 pa1el',0
  6364.  
  6365. m1opt4sub2    dc.l    m1opt4sub3        ;next item
  6366.     dc.w    100        ;left edge
  6367.     dc.w    0        ;top edge
  6368.     dc.w    120        ;width
  6369.     dc.w    10        ;height
  6370.     dc.w    HIGHCOMP|ITEMENABLED|COMMSEQ|ITEMTEXT;flags
  6371.     dc.l    0        ;mutual exclude
  6372.     dc.l    m1o4s2itext        ;item fill
  6373.     dc.l    0        ;select fill
  6374.     dc.b    '3'        ;command
  6375.     dc.b    0        ;pad byte
  6376.     dc.l    0        ;sub item
  6377.     dc.w    0        ;next select
  6378.     
  6379. m1o4s2itext    dc.b    1        ;front pen
  6380.     dc.b    2        ;back pen
  6381.     dc.b    1        ;draw mode
  6382.     dc.b    0        ;pad byte
  6383.     dc.w    0        ;left edge
  6384.     dc.w    1        ;top edge
  6385.     dc.l    0        ;font
  6386.     dc.l    m1o4s2txt        ;text
  6387.     dc.l    0        ;next intuitext
  6388.  
  6389. m1o4s2txt    dc.b    '32 pa1el',0
  6390.  
  6391. m1opt4sub3    dc.l    0        ;next item
  6392.     dc.w    100        ;left edge
  6393.     dc.w    10        ;top edge
  6394.     dc.w    120        ;width
  6395.     dc.w    10        ;height
  6396.     dc.w    HIGHCOMP|ITEMENABLED|COMMSEQ|ITEMTEXT;flags
  6397.     dc.l    0        ;mutual exclude
  6398.     dc.l    m1o4s3itext        ;item fill
  6399.     dc.l    0        ;select fill
  6400.     dc.b    '6'        ;command
  6401.     dc.b    0        ;pad byte
  6402.     dc.l    0        ;sub item
  6403.     dc.w    0        ;next select
  6404.  
  6405. m1o4s3itext    dc.b    1        ;front pen
  6406.     dc.b    2        ;back pen
  6407.     dc.b    RP_JAM2        ;draw mode
  6408.     dc.b    0        ;pad byte
  6409.     dc.w    0        ;left edge
  6410.     dc.w    1        ;top edge
  6411.     dc.l    0        ;font
  6412.     dc.l    m1o4s3txt        ;text
  6413.     dc.l    0        ;next intuitext
  6414.  
  6415. m1o4s3txt    dc.b    '64 pa1el',0
  6416.  
  6417. m1option5    dc.l    m1option6        ;next item
  6418.     dc.w    0        ;left edge
  6419.     dc.w    40        ;top edge
  6420.     dc.w    150        ;width
  6421.     dc.w    10        ;height
  6422.     dc.w    0        ;flags
  6423.     dc.l    0        ;mutual exclude
  6424.     dc.l    m1o5image        ;item fill
  6425.     dc.l    0        ;select fill
  6426.     dc.b    0        ;command
  6427.     dc.b    0        ;pad byte
  6428.     dc.l    0        ;sub item
  6429.     dc.w    0        ;next select
  6430.  
  6431. m1o5image    dc.w    0        ;left edge
  6432.     dc.w    4        ;top edge
  6433.     dc.w    150        ;width
  6434.     dc.w    2        ;height
  6435.     dc.w    0        ;depth
  6436.     dc.l    0        ;image data
  6437.     dc.b    0        ;plane pick
  6438.     dc.b    0        ;plane on off
  6439.     dc.l    0        ;next image
  6440.  
  6441. m1option6    dc.l    m1option7        ;next item
  6442.     dc.w    0        ;left edge
  6443.     dc.w    50        ;top edge
  6444.     dc.w    150        ;width
  6445.     dc.w    10        ;height
  6446.     dc.w    HIGHCOMP|ITEMENABLED|COMMSEQ|ITEMTEXT;flags
  6447.     dc.l    0        ;mutual exclude
  6448.     dc.l    m1opt6itext        ;item fill
  6449.     dc.l    0        ;select fill
  6450.     dc.b    'S'        ;command
  6451.     dc.b    0        ;pad byte
  6452.     dc.l    0        ;sub item
  6453.     dc.w    0        ;next select
  6454.  
  6455. m1opt6itext    dc.b    1        ;front pen
  6456.     dc.b    2        ;back pen
  6457.     dc.b    RP_JAM2        ;draw mode
  6458.     dc.b    0        ;pad byte
  6459.     dc.w    0        ;left edge
  6460.     dc.w    1        ;top edge
  6461.     dc.l    0        ;font
  6462.     dc.l    m1opt6txt        ;text
  6463.     dc.l    0        ;next intuitext
  6464.  
  6465. m1opt6txt    dc.b    'Screen Mode',0
  6466.  
  6467.  
  6468. m1option7    dc.l    m1option8        ;next item
  6469.     dc.w    0        ;left edge
  6470.     dc.w    60        ;top edge
  6471.     dc.w    150        ;width
  6472.     dc.w    10        ;height
  6473.     dc.w    HIGHCOMP|ITEMENABLED|COMMSEQ|ITEMTEXT;flags
  6474.     dc.l    0        ;mutual exclude
  6475.     dc.l    m1opt7itext        ;item fill
  6476.     dc.l    0        ;select fill
  6477.     dc.b    'P'        ;command
  6478.     dc.b    0        ;pad byte
  6479.     dc.l    0        ;sub item
  6480.     dc.w    0        ;next select
  6481.  
  6482. m1opt7itext    dc.b    1        ;front pen
  6483.     dc.b    2        ;back pen
  6484.     dc.b    RP_JAM2        ;draw mode
  6485.     dc.b    0        ;pad byte
  6486.     dc.w    0        ;left edge
  6487.     dc.w    1        ;top edge
  6488.     dc.l    0        ;font
  6489.     dc.l    m1opt7txt        ;text
  6490.     dc.l    0        ;next intuitext
  6491.  
  6492. m1opt7txt    dc.b    'Preferences',0
  6493.  
  6494. m1option8    dc.l    m1option9        ;next item
  6495.     dc.w    0        ;left edge
  6496.     dc.w    70        ;top edge
  6497.     dc.w    150        ;width
  6498.     dc.w    10        ;height
  6499.     dc.w    HIGHCOMP|ITEMENABLED|COMMSEQ|ITEMTEXT;flags
  6500.     dc.l    0        ;mutual exclude
  6501.     dc.l    m1opt8itext        ;item fill
  6502.     dc.l    0        ;select fill
  6503.     dc.b    '!'        ;command
  6504.     dc.b    0        ;pad byte
  6505.     dc.l    0        ;sub item
  6506.     dc.w    0        ;next select
  6507.  
  6508. m1opt8itext    dc.b    1        ;front pen
  6509.     dc.b    2        ;back pen
  6510.     dc.b    1        ;draw mode
  6511.     dc.b    0        ;pad byte
  6512.     dc.w    0        ;left edge
  6513.     dc.w    1        ;top edge
  6514.     dc.l    0        ;font
  6515.     dc.l    m1opt8txt        ;text
  6516.     dc.l    0        ;next intuitext
  6517.  
  6518. m1opt8txt    dc.b    'About',0
  6519.  
  6520. m1option9    dc.l    m1option10        ;next item
  6521.     dc.w    0        ;left edge
  6522.     dc.w    80        ;top edge
  6523.     dc.w    150        ;width
  6524.     dc.w    10        ;height
  6525.     dc.w    0        ;flags
  6526.     dc.l    0        ;mutual exclude
  6527.     dc.l    m1o5image        ;item fill
  6528.     dc.l    0        ;select fill
  6529.     dc.b    0        ;command
  6530.     dc.b    0        ;pad byte
  6531.     dc.l    0        ;sub item
  6532.     dc.w    0        ;next select
  6533.  
  6534. m1option10    dc.l    0        ;next item
  6535.     dc.w    0        ;left edge
  6536.     dc.w    90        ;top edge
  6537.     dc.w    150        ;width
  6538.     dc.w    10        ;height
  6539.     dc.w    HIGHCOMP|ITEMENABLED|COMMSEQ|ITEMTEXT;flags
  6540.     dc.l    0        ;mutual exclude
  6541.     dc.l    m1opt10itext    ;item fill
  6542.     dc.l    0        ;select fill
  6543.     dc.b    $51        ;command
  6544.     dc.b    0        ;pad byte
  6545.     dc.l    0        ;sub item
  6546.     dc.w    0        ;next select
  6547.  
  6548. m1opt10itext
  6549.     dc.b    1        ;front pen
  6550.     dc.b    2        ;back pen
  6551.     dc.b    1        ;draw mode
  6552.     dc.b    0        ;pad byte
  6553.     dc.w    0        ;left edge
  6554.     dc.w    1        ;top edge
  6555.     dc.l    0        ;font
  6556.     dc.l    m1opt10txt        ;text
  6557.     dc.l    0        ;next intuitext
  6558.  
  6559. m1opt10txt    dc.b    'Quit',0,0
  6560.  
  6561.  
  6562. menu2    dc.l    0        ;next menu
  6563.     dc.w    80        ;left edge
  6564.     dc.w    0        ;top edge
  6565.     dc.w    63        ;width
  6566.     dc.w    10        ;height
  6567.     dc.w    MENUENABLED        ;flags
  6568.     dc.l    menu2txt        ;menu name
  6569.     dc.l    m2option1        ;first item
  6570.     dc.w    0        ;jazz x
  6571.     dc.w    0        ;jazz y
  6572.     dc.w    0        ;beat x
  6573.     dc.w    0        ;beat y
  6574.     
  6575. menu2txt    dc.b    'Toolbox',0
  6576.  
  6577. m2option1    dc.l    m2option2        ;next item
  6578.     dc.w    0        ;left edge
  6579.     dc.w    0        ;top edge
  6580.     dc.w    178        ;width
  6581.     dc.w    10        ;height
  6582.     dc.w    HIGHCOMP|ITEMENABLED|ITEMTEXT;flags
  6583.     dc.l    0        ;mutual exclude
  6584.     dc.l    m2opt1itext        ;item fill
  6585.     dc.l    0        ;select fill
  6586.     dc.b    0        ;command
  6587.     dc.b    0        ;pad byte
  6588.     dc.l    0        ;sub item
  6589.     dc.w    0        ;next select
  6590.  
  6591. m2opt1itext    dc.b    1        ;front pen
  6592.     dc.b    2        ;back pen
  6593.     dc.b    RP_JAM2        ;draw mode
  6594.     dc.b    0        ;pad byte
  6595.     dc.w    0        ;left edge
  6596.     dc.w    1        ;top edge
  6597.     dc.l    0        ;font
  6598.     dc.l    m2opt1txt        ;text
  6599.     dc.l    0        ;next intuitext
  6600.  
  6601. m2opt1txt    dc.b    'Cut Brush            b',0
  6602.  
  6603. m2option2    dc.l    m2option3        ;next item
  6604.     dc.w    0        ;left edge
  6605.     dc.w    10        ;top edge
  6606.     dc.w    178        ;width
  6607.     dc.w    10        ;height
  6608.     dc.w    HIGHCOMP|ITEMENABLED|ITEMTEXT;flags
  6609.     dc.l    0        ;mutual exclude
  6610.     dc.l    m2opt2itext        ;item fill
  6611.     dc.l    0        ;select fill
  6612.     dc.b    0        ;command
  6613.     dc.b    0        ;pad byte
  6614.     dc.l    0        ;sub item
  6615.     dc.w    0        ;next select
  6616.  
  6617. m2opt2itext    dc.b    1        ;front pen
  6618.     dc.b    2        ;back pen
  6619.     dc.b    RP_JAM2        ;draw mode
  6620.     dc.b    0        ;pad byte
  6621.     dc.w    0        ;left edge
  6622.     dc.w    1        ;top edge
  6623.     dc.l    0        ;font
  6624.     dc.l    m2opt2txt        ;text
  6625.     dc.l    0        ;next intuitext
  6626.  
  6627. m2opt2txt    dc.b    'Set Palette          p',0
  6628.  
  6629. m2option3    dc.l    m2option4        ;next item
  6630.     dc.w    0        ;left edge
  6631.     dc.w    20        ;top edge
  6632.     dc.w    178        ;width
  6633.     dc.w    10        ;height
  6634.     dc.w    0        ;flags
  6635.     dc.l    0        ;mutual exclude
  6636.     dc.l    m2opt3image        ;item fill
  6637.     dc.l    0        ;select fill
  6638.     dc.b    0        ;command
  6639.     dc.b    0        ;pad byte
  6640.     dc.l    0        ;sub item
  6641.     dc.w    0        ;next select
  6642.  
  6643. m2opt3image    dc.w    0        ;left edge
  6644.     dc.w    4        ;top edge
  6645.     dc.w    178        ;width
  6646.     dc.w    2        ;height
  6647.     dc.w    0        ;depth
  6648.     dc.l    0        ;image data
  6649.     dc.b    0        ;plane pick
  6650.     dc.b    0        ;plane on/off
  6651.     dc.l    0        ;next image
  6652.  
  6653. m2option4    dc.l    m2option5        ;next item
  6654.     dc.w    0        ;left edge
  6655.     dc.w    30        ;top edge
  6656.     dc.w    178        ;width
  6657.     dc.w    10        ;height
  6658.     dc.w    HIGHCOMP|ITEMENABLED|COMMSEQ|ITEMTEXT;flags
  6659.     dc.l    0        ;mutual exclude
  6660.     dc.l    m2opt4itext        ;item fill
  6661.     dc.l    0        ;select fill
  6662.     dc.b    'G'        ;command
  6663.     dc.b    0        ;pad byte
  6664.     dc.l    0        ;sub item
  6665.     dc.w    0        ;next item
  6666.  
  6667. m2opt4itext    dc.b    1        ;front pen
  6668.     dc.b    2        ;back pen
  6669.     dc.b    RP_JAM2        ;draw mode
  6670.     dc.b    0        ;pad byte
  6671.     dc.w    0        ;left edge
  6672.     dc.w    1        ;top edge
  6673.     dc.l    0        ;font
  6674.     dc.l    m2opt4txt        ;text
  6675.     dc.l    0        ;next intuitext
  6676.  
  6677. m2opt4txt    dc.b    'Generate Palette',0
  6678.  
  6679. m2option5    dc.l    m2option6        ;next item
  6680.     dc.w    0        ;left edge
  6681.     dc.w    40        ;top edge
  6682.     dc.w    178        ;width
  6683.     dc.w    10        ;height
  6684.     dc.w    HIGHCOMP|ITEMENABLED|COMMSEQ|ITEMTEXT;flags
  6685.     dc.l    0        ;mutual exclude
  6686.     dc.l    m2opt5itext        ;item fill
  6687.     dc.l    0        ;select fill
  6688.     dc.b    'B'        ;command
  6689.     dc.b    0        ;pad byte
  6690.     dc.l    0        ;sub item
  6691.     dc.w    0        ;next select
  6692.  
  6693. m2opt5itext    dc.b    1        ;front pen
  6694.     dc.b    2        ;back pen
  6695.     dc.b    RP_JAM2        ;draw mode
  6696.     dc.b    0        ;pad byte
  6697.     dc.w    0        ;left edge
  6698.     dc.w    1        ;top edge
  6699.     dc.l    0        ;font
  6700.     dc.l    m2opt5txt        ;text
  6701.     dc.l    0        ;next intuitext
  6702.  
  6703. m2opt5txt    dc.b    'Save Brush Mask',0
  6704.  
  6705. m2option6    dc.l    0        ;next item
  6706.     dc.w    0        ;left edge
  6707.     dc.w    50        ;top edge
  6708.     dc.w    178        ;width
  6709.     dc.w    10        ;height
  6710.     dc.w    HIGHCOMP|ITEMENABLED|COMMSEQ|ITEMTEXT;flags
  6711.     dc.l    0        ;mutual exclude
  6712.     dc.l    m2opt6itext        ;item fill
  6713.     dc.l    0        ;select fill
  6714.     dc.b    'M'        ;command
  6715.     dc.b    0        ;pad byte
  6716.     dc.l    0        ;sub item
  6717.     dc.w    0        ;next select
  6718.  
  6719. m2opt6itext    dc.b    1        ;front pen
  6720.     dc.b    2        ;back pen
  6721.     dc.b    RP_JAM2        ;draw mode
  6722.     dc.b    0        ;pad byte
  6723.     dc.w    0        ;left edge
  6724.     dc.w    1        ;top edge
  6725.     dc.l    0        ;font
  6726.     dc.l    m2opt6txt        ;text
  6727.     dc.l    0        ;next intuitext
  6728.  
  6729. m2opt6txt    dc.b    'Save Picture Mask',0
  6730.  
  6731. loadtags    dc.l    RTFI_Dir
  6732.     dc.l    loaddir
  6733.     dc.l    TAG_DONE
  6734.     
  6735. savetags    dc.l    RTFI_Dir
  6736.     dc.l    savedir
  6737.     dc.l    TAG_DONE
  6738.     
  6739. tags2    dc.l    RT_ReqPos
  6740.     dc.l    1
  6741.     dc.l    TAG_DONE
  6742.     
  6743. taglist    dc.l    RT_ReqPos
  6744.     dc.l    1
  6745.     dc.l    RTEZ_Flags
  6746.     dc.l    7
  6747.     dc.l    RT_Window
  6748. winpt2    dc.l    0
  6749.     dc.l    TAG_DONE
  6750.  
  6751. taglist2    dc.l    RT_Window
  6752. winpt3    dc.l    0
  6753.     dc.l    RT_ReqPos
  6754.     dc.l    1
  6755.     dc.l    TAG_DONE
  6756.  
  6757. sc_tags2    dc.l    RTSC_Flags
  6758.     dc.l    SCREQF_NONSTDMODES
  6759.     dc.l    RT_Window
  6760. winpt4    dc.l    0
  6761.     dc.l    RTSC_FilterFunc
  6762.     dc.l    hook
  6763.     dc.l    TAG_DONE
  6764.  
  6765. hook    dc.l    filterfunc
  6766.     dc.l    filterfunc
  6767.     dc.l    filterfunc
  6768.  
  6769. sc_tags3    dc.l    RTSC_ModeFromScreen
  6770. scrpt4    dc.l    0
  6771.     dc.l    RTSC_OverscanType
  6772.     dc.l    0
  6773.     dc.l    TAG_DONE
  6774.  
  6775. dttags    dc.l    PDTA_Remap
  6776.     dc.l    0
  6777.     dc.l    DTA_GroupID
  6778.     dc.l    GID_PICTURE
  6779.     dc.l    TAG_DONE
  6780.  
  6781. dtattrs    dc.l    DTA_NominalHoriz
  6782.     dc.l    dtwidth
  6783.     dc.l    DTA_NominalVert
  6784.     dc.l    dtheight
  6785.     dc.l    PDTA_ModeID
  6786.     dc.l    iffcamg
  6787.     dc.l    PDTA_BitMapHeader
  6788.     dc.l    bmhdaddr
  6789.     dc.l    PDTA_BitMap
  6790.     dc.l    bitmapaddr
  6791.     dc.l    PDTA_CRegs
  6792.     dc.l    colortable
  6793.     dc.l    TAG_DONE
  6794.  
  6795. dtattrs2    dc.l    GA_Left
  6796.     dc.l    0
  6797.     dc.l    GA_Top
  6798.     dc.l    0
  6799.     dc.l    GA_Width
  6800. dtwidmod    dc.l    0
  6801.     dc.l    GA_Height
  6802. dthtmod    dc.l    0
  6803.     dc.l    TAG_DONE
  6804.  
  6805. ;gadtags1    dc.l    GTMX_Labels
  6806. ;    dc.l    labels
  6807. ;    dc.l    GTMX_TitlePlace
  6808. ;    dc.l    PLACETEXT_ABOVE
  6809. ;    dc.l    TAG_DONE
  6810. ;
  6811. ;labels    dc.l    iffsavetxt
  6812. ;    dc.l    rawsavetxt
  6813. ;    dc.l    irawsavetxt
  6814. ;    dc.l    0
  6815. ;
  6816. ;iffsavetxt    dc.b    'IFF ILBM',0
  6817. ;rawsavetxt    dc.b    'Raw',0
  6818. ;irawsavetxt    dc.b    'Interleaved Raw',0
  6819. ;
  6820. palreqtxt    dc.b    'Change Colours',0
  6821.  
  6822. bodyfmt1    dc.b    'IFFMaster Pro (v0.99n)',$A
  6823.     dc.b    'by Rebel',$A
  6824.     dc.b    'This IFF Converter is very closely',$A
  6825.     dc.b    'based on ARCANEs IFFMaster (v1.0)',$A
  6826.     dc.b    'but with the inclusion of AGA',$A
  6827.     dc.b    'compatibility and some other small',$A
  6828.     dc.b    'enhancements.',$A,$A
  6829.     dc.b    'Personal greets to Lampwick, Neil',$A
  6830.     dc.b    'Richard, Richard, Fossil & Tweeky.',$A,$A
  6831.     dc.b    'This utility was written in 100%%',$A
  6832.     dc.b    'pure assembler using Devpac 3.',$A,$A
  6833.     dc.b    'Many thanks also to Lampwick for',$A
  6834.     dc.b    'lots of testing and suggestions',$A
  6835.     dc.b    'during the development of this',$A
  6836.     dc.b    'project.',$A,$A,0
  6837. gadfmt1    dc.b    'Continue',0
  6838.  
  6839.  
  6840. bodyfmt2    dc.b    'File Read Error, Load Aborted.',$A,0
  6841. gadfmt2    dc.b    'Abort',0
  6842.  
  6843. bodyfmt3    dc.b    'This file is not an ILBM file and',$A
  6844.     dc.b    'is not recognised by the',$A
  6845.     dc.b    'datatypes.library (if available)',$A,0
  6846. gadfmt3    dc.b    'Abort',0
  6847.  
  6848. bodyfmt4    dc.b    'There Is Not Enough Free Memory',$A
  6849.     dc.b    'To Load The Picture',$A,0
  6850. gadfmt4    dc.b    'Abort',0
  6851.  
  6852. bodyfmt5    dc.b    'IFF File is corrupt and has not',$A
  6853.     dc.b    'been completely loaded.',$A,0
  6854. gadfmt5    dc.b    'Continue',0
  6855.  
  6856. bodyfmt6    dc.b    'File Write Error, Save Aborted.',$A,0
  6857. gadfmt6    dc.b    'Abort',0
  6858.  
  6859. bodyfmt7    dc.b    'Unable to open preferences window.',$A,0
  6860. gadfmt7    dc.b    'Abort',0
  6861.  
  6862. bodyfmt8    dc.b    'Error while saving preferences file.',$A,0
  6863. gadfmt8    dc.b    'Continue',0
  6864.  
  6865. dosname    dc.b    'dos.library',0
  6866.  
  6867. intuiname    dc.b    'intuition.library',0
  6868. reqtname    dc.b    'reqtools.library',0
  6869. gfxname    dc.b    'graphics.library',0
  6870. gadname    dc.b    'gadtools.library',0
  6871. dtname    dc.b    'datatypes.library',0
  6872.  
  6873. dosbase    ds.l    1
  6874. intuibase    ds.l    1
  6875. reqtbase    ds.l    1
  6876. gfx39base    ds.l    1
  6877. gfxbase    ds.l    1
  6878. gadbase    ds.l    1
  6879. dtbase    ds.l    1
  6880.  
  6881. filename    ds.b    108
  6882.  
  6883. loadtxt    dc.b    'Choose Picture To Load',0
  6884. savetxt    dc.b    'Choose Filename For Save',0
  6885. savpaltxt    dc.b    'Choose Saved Palette Name',0
  6886. savmasktxt    dc.b    'Choose Mask File Name',0
  6887. savcoptxt    dc.b    'Choose Copper List File Name',0,0
  6888. wintit    dc.b    "choose screen mode",0
  6889. lwintitle    dc.b    '        Loading ILBM Image',0
  6890. swintitle    dc.b    '         Saving ILBM Image',0
  6891. srawtitle    dc.b    '          Saving RAW Image',0
  6892. mwintitle    dc.b    '         Saving Mask Image',0
  6893. scrtitle    dc.b    'IFF Master Pro v0.99 by Rebel',0,0
  6894. prefstitle    dc.b    'IFFMaster Pro Preferences',0
  6895. loadtxt2    dc.b    '0%                          100%',0
  6896. ptxt1    dc.b    'Bitplane Save Method         :  '
  6897. ptxt1a    dc.b    'Normal     ',0
  6898. ptxt2    dc.b    'Palette Info                 :  '
  6899. ptxt2a    dc.b    'None  ',0
  6900. ptxt3    dc.b    'Palette Type                 :  '
  6901. ptxt3a    dc.b    '12 Bit',0
  6902. ptxt4    dc.b    'Palette Save Method          :  '
  6903. ptxt4a    dc.b    'Source       ',0
  6904. ptxt5    dc.b    'Sprites Save Method          :  '
  6905. ptxt5a    dc.b    'Source',0
  6906. ptxt6    dc.b    'Sprite Control Words         :  '
  6907. ptxt6a    dc.b    'Off',0
  6908. ptxt7    dc.b    'Sprite Depth                 :  '
  6909. ptxt7a    dc.b    '4 Colours ',0
  6910. ptxt8    dc.b    'Extra Blitter Words          :  '
  6911. ptxt8a    dc.b    'None ',0
  6912. ptxt9    dc.b    'ILBM Compression             :  '
  6913. ptxt9a    dc.b    'Byte Run 1',0
  6914. ptxt10    dc.b    'Cancel Preferences',0
  6915. ptxt11    dc.b    'Use these Prefs',0
  6916. ptxt12    dc.b    'Save and use these prefs',0
  6917. prefsname    dc.b    'S:IFFMasterPro.prefs',0
  6918. stattxt    dc.b    'D'
  6919. depthASCII    dc.b    '  BW'
  6920. brwidASCII    dc.b    '     BH'
  6921. brhtASCII    dc.b    '     W'
  6922. widASCII    dc.b    '0000 H'
  6923. heightASCII    dc.b    '0000 '
  6924.  
  6925. statmod    dc.b    '           ',0
  6926.  
  6927. coordtxt    dc.b    'X'
  6928. xASCII    dc.b    '0000 Y'
  6929. yASCII    dc.b    '0000',0
  6930.  
  6931. addrtxt    dc.b    'A'
  6932. addrmod    dc.b    '000000     ',0
  6933.  
  6934. savemethtxt    dc.l    savemthtxt1
  6935.     dc.l    savemthtxt2
  6936.     
  6937. palinfotxt    dc.l    palinfotxt1
  6938.     dc.l    palinfotxt2
  6939.     dc.l    palinfotxt3
  6940.     
  6941. paltypetxt    dc.l    paltypetxt1
  6942.     dc.l    paltypetxt2
  6943.     
  6944. palmethtxt    dc.l    palmthtxt1
  6945.     dc.l    palmthtxt2
  6946.     dc.l    palmthtxt3
  6947.     
  6948. sprmethtxt    dc.l    sprmthtxt1
  6949.     dc.l    sprmthtxt2
  6950.     
  6951. sprctrltxt    dc.l    sprctrltxt1
  6952.     dc.l    sprctrltxt2
  6953.     
  6954. sprdeptxt    dc.l    sprdeptxt1
  6955.     dc.l    sprdeptxt2
  6956.     
  6957. xtrablittxt    dc.l    xtrablttxt1
  6958.     dc.l    xtrablttxt2
  6959.     dc.l    xtrablttxt3
  6960.     
  6961. iffcomptxt    dc.l    iffcomptxt1
  6962.     dc.l    iffcomptxt2
  6963.     
  6964. savemthtxt1    dc.b    'Normal     '
  6965. savemthtxt2    dc.b    'Interleaved'
  6966.  
  6967. palinfotxt1    dc.b    'None  '
  6968. palinfotxt2    dc.b    'After '
  6969. palinfotxt3    dc.b    'Before'
  6970.  
  6971. paltypetxt1    dc.b    '12 Bit'
  6972. paltypetxt2    dc.b    '24 Bit'
  6973.  
  6974. palmthtxt1    dc.b    'Source       '
  6975. palmthtxt2    dc.b    'Copper Source'
  6976. palmthtxt3    dc.b    'Binary       '
  6977.  
  6978. sprmthtxt1    dc.b    'Source'
  6979. sprmthtxt2    dc.b    'Binary'
  6980.  
  6981. sprctrltxt1    dc.b    'Off'
  6982. sprctrltxt2    dc.b    'On '
  6983.  
  6984. sprdeptxt1    dc.b    '4 Colours '
  6985. sprdeptxt2    dc.b    '16 Colours'
  6986.  
  6987. xtrablttxt1    dc.b    'None '
  6988. xtrablttxt2    dc.b    'Left '
  6989. xtrablttxt3    dc.b    'Right'
  6990.  
  6991. iffcomptxt1    dc.b    'None      '
  6992. iffcomptxt2    dc.b    'Byte Run 1'
  6993.  
  6994. filelock    ds.l    1
  6995. olddirlock    ds.l    1
  6996. store1    ds.l    1
  6997. iffend    ds.l    1
  6998. seekpos    ds.l    1
  6999. handle1    ds.l    1
  7000. bodylen    ds.l    1
  7001. buffptr    ds.l    1
  7002. lenstore    ds.l    1
  7003. stdout    ds.l    1
  7004. req1    ds.l    1
  7005. req2    ds.l    1
  7006. message    ds.l    1
  7007. blenpos    ds.l    1
  7008. pladdr    ds.l    1
  7009. plsize    ds.l    1
  7010. oldplsize    ds.l    1
  7011. scrpt1    ds.l    1
  7012. winpt1    ds.l    1
  7013. lswindow    ds.l    1
  7014. prefswin    ds.l    1
  7015. ;tempwinptr    ds.l    1
  7016. ;visinfo    ds.l    1
  7017. ;gadtgad1    ds.l    1
  7018.  
  7019. iffwidth    ds.w    1
  7020. iffheight    ds.w    1
  7021. pagewid    ds.w    1
  7022. pageht    ds.w    1
  7023. iffdepth    ds.w    1
  7024. mask    ds.b    1
  7025. comp    ds.b    1
  7026. height    ds.w    1
  7027. width    ds.w    1
  7028. scrollx    ds.w    1
  7029. scrolly    ds.w    1
  7030. aspects    ds.b    1
  7031.     ds.b    1
  7032. sprwid    ds.l    1
  7033. cdepth    ds.w    1
  7034. mousex    dc.w    $FFFF
  7035. mousey    dc.w    $FFFF
  7036. brtlx    dc.w    $FFFF
  7037. brtly    dc.w    $FFFF
  7038. brbrx    dc.w    $FFFF
  7039. brbry    dc.w    $FFFF
  7040. brtlxoff    dc.w    $FFFF
  7041. brtlyoff    dc.w    $FFFF
  7042. brbrxoff    dc.w    $FFFF
  7043. brbryoff    dc.w    $FFFF
  7044. brushon    ds.b    1
  7045. intopborder    ds.b    1
  7046. bytewid1    ds.w    1
  7047. bytewid2    ds.w    1
  7048. iffcamg    ds.l    1
  7049. lightest    ds.b    1
  7050. darkest    ds.b    1
  7051. lineno    ds.w    1
  7052. maxline    ds.w    1
  7053. lmbpress    ds.b    1
  7054. altpressed    ds.b    1
  7055. ctrlpressed    ds.b    1
  7056. coordtype    ds.b    1
  7057. dtobject    ds.l    1
  7058. dtwidth    ds.l    1
  7059. dtheight    ds.l    1
  7060. bmhdaddr    ds.l    1
  7061. bitmapaddr    ds.l    1
  7062. colortable    ds.l    1
  7063. gads    ds.l    1
  7064. palstore1    dc.l    $AAAAAA00
  7065.     dc.l    $0000FFFF
  7066.     dc.l    $FF6688BB
  7067.     ds.l    63*3
  7068.  
  7069. pal32    ds.l    1
  7070. palstore2    ds.l    257*3
  7071.  
  7072. menupal    dc.w    $aaa
  7073.     dc.w    $000
  7074.     dc.w    $fff
  7075.     dc.w    $68b
  7076.  
  7077. newprefs
  7078. bplmeth    dc.b    0
  7079. palinfo    dc.b    1
  7080. paltype    dc.b    0
  7081. palmeth    dc.b    0
  7082. sprmeth    dc.b    0
  7083. sprctrl    dc.b    1
  7084. sprdepth    dc.b    0
  7085. extrablit    dc.b    0
  7086. iffcomp    dc.b    1
  7087.     ;pad byte
  7088. buffptr1    ds.l    1
  7089. buffptr2    ds.l    1
  7090.  
  7091. loaddir    ds.b    256
  7092. savedir    ds.b    256
  7093. endnewprefs
  7094.  
  7095. oldprefs    ds.b    endnewprefs-newprefs
  7096.  
  7097. pal12src    dc.b    '    DC.W    $'
  7098. pal12mod1    dc.b    '0000',$A
  7099. endpal12
  7100.  
  7101. pal24src    dc.b    '    DC.B    $'
  7102. pal24mod1    dc.b    '00,$'
  7103. pal24mod2    dc.b    '00,$'
  7104. pal24mod3    dc.b    '00',$A,'    DC.W    $106,$0000',$A
  7105. endpal24
  7106.  
  7107. copsrc1    dc.b    '    DC.W    $'
  7108. copmod1    dc.b    '180,$'
  7109. copmod2    dc.b    '0000',$A
  7110. endcop1
  7111.  
  7112. spr16ctrl    dc.b    'spr1'
  7113. sprsaveA    dc.b    '    DC.W    $0000,$0000',$A
  7114. end16save
  7115.  
  7116. spr32ctrl    dc.b    'spr1'
  7117. sprsaveB    dc.b    '    DC.W    $0000,$0000,$0000,$0000',$A
  7118. end32save
  7119.  
  7120. spr64ctrl    dc.b    'spr1'
  7121. sprsaveC    dc.b    '    DC.W    $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000',$A
  7122. end64save
  7123.  
  7124. sprtxt1    dc.b    '    DC.W'
  7125. sprtxt2    dc.b    '    $'
  7126. sprtxt3    dc.b    '0000,$'
  7127. sprtxt4    dc.b    '0000,$'
  7128. sprtxt5    dc.b    '0000,$'
  7129. sprtxt6    dc.b    '0000,$'
  7130. sprtxt7    dc.b    '0000,$'
  7131. sprtxt8    dc.b    '0000,$'
  7132. sprtxt9    dc.b    '0000,$'
  7133. sprtxt10    dc.b    '0000',$A
  7134.  
  7135. nointuitxt    dc.b    'The intuition.library v36 or higher could not be opened,',$a
  7136.     dc.b    'either there is a very serious fault with your Amiga, or you are ',$a
  7137.     dc.b    'simply running out of free memory.',$a,$a
  7138. nointuiend
  7139.  
  7140. nogfxtxt    dc.b    'The graphics.library v36 or higher could not be opened, ',$a
  7141.     dc.b    'either there is a very serious fault with your Amiga, or you are ',$a
  7142.     dc.b    'simply running out of free memory.',$a,$a
  7143. nogfxend
  7144.  
  7145. nogadttxt    dc.b    'The gadtools.library v36 or higher could not be opened, this library',$a
  7146.     dc.b    'is required to run this program',$a,$a
  7147. nogadtend
  7148.     
  7149. noreqttxt    dc.b    'The reqtools.library could not be opened, to run this program you',$a
  7150.     dc.b    'need this library by Nico Francois, copy it to your LIBS: drawer',$a
  7151.     dc.b    'before you attempt to run this program again.',$a,$a
  7152. noreqtend
  7153.  
  7154. noreqatxt    dc.b    'The reqtools.library could not allocate a file requester, the most',$a
  7155.     dc.b    'likely reason for this is lack of free RAM',$a,$a
  7156. noreqaend
  7157.  
  7158. noscreentxt    dc.b    'This program could not open the necessary screen, you must be running',$a
  7159.     dc.b    'out of memory or this computer is not capabable of displaying the required.',$a
  7160.     dc.b    'screen.',$a,$a
  7161. noscreenend
  7162.  
  7163. noks2txt    dc.b    'This program needs Kickstart 2 (v36) or better',$a
  7164.     dc.b    'to function and you do not appear to have it',$a,$a
  7165. noks2end
  7166.  
  7167.     section    buffer,bss
  7168.  
  7169. copybuff    ds.l    1024*2
  7170. copybuffend    ds.b    100    ;extra buffer area 
  7171.             ;in case of compression <0% when picture
  7172.             ;is 65535 pixels wide
  7173.             
  7174. copybuff2    ds.l    1024*2
  7175.     ds.b    100    ;extra buffer area 
  7176.             ;in case of compression <0% when picture
  7177.             ;is 65535 pixels wide
  7178.  
  7179.  
  7180.  
  7181.     SECTION    Chipdata,DATA_C
  7182. mousept    dc.w    %0000000000000000,%0000000000000000
  7183.     dc.w    %0000000100000000,%0000000000000000
  7184.     dc.w    %0000000000000000,%0000000000000000
  7185.     dc.w    %0000000100000000,%0000000000000000
  7186.     dc.w    %0000000000000000,%0000000000000000
  7187.     dc.w    %0000000100000000,%0000000000000000
  7188.     dc.w    %0000000000000000,%0000000000000000
  7189.     dc.w    %0000000000000000,%0000000000000000
  7190.     dc.w    %1010101110101010,%0000000100000000
  7191.     dc.w    %0000000000000000,%0000000000000000
  7192.     dc.w    %0000000000000000,%0000000000000000
  7193.     dc.w    %0000000100000000,%0000000000000000
  7194.     dc.w    %0000000000000000,%0000000000000000
  7195.     dc.w    %0000000100000000,%0000000000000000
  7196.     dc.w    %0000000000000000,%0000000000000000
  7197.     dc.w    %0000000100000000,%0000000000000000
  7198.     dc.w    %0000000000000000,%0000000000000000
  7199.  
  7200. gadgetimage    dc.l    $FFFFFFFF
  7201.     dc.l    $FFFFFFFF
  7202.     dc.l    $FFFFFFFF
  7203.     dc.l    $FFFFFFFF
  7204.     dc.l    $FFFFFFFF
  7205.     dc.l    $FFFFFFFF
  7206.     dc.l    $FFFFFFFF
  7207.     dc.l    $FFFFFFFF
  7208.     dc.l    $FFFFFFFF
  7209.     dc.l    $FFFFFFFF
  7210.     dc.l    $FFFFFFFF
  7211.     dc.l    $FFFFFFFF
  7212.     dc.l    $FFFFFFFF
  7213.     dc.l    $FFFFFFFF
  7214.     dc.l    $FFFFFFFF
  7215.     dc.l    $FFFFFFFF
  7216.     dc.l    $FFFFFFFF
  7217.     dc.l    $FFFFFFFF
  7218.     dc.l    $FFFFFFFF
  7219.     dc.l    $FFFFFF00
  7220.     ds.l    220
  7221.     end
  7222.